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to  put  the  package  under  the  IBM  standard  operating  system  were 
carried  out  by  Mr.  Richard  Fausey  with  some  assistance  from 
Mr.  James  Robinson. 
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ABSTRACT 

A  group  of  subroutines  is  described  whi  n  facilitates  the 
utilization  of  the  buffered  IBM  2250  display  terminal  associated 
with  an  IBM  System/360.  The  roucines  provide  a  means  of  displaying 
graphs  and  textual  material  and  provide  for  efficient  use  of  the 
I  i i:ht  pen  and  other  associated  devices. 
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X.  INTRODUCTION 


In  November  of  1965,  the  Naval  Weapons  Laboratory  acquired  two  IBM  2250 
CRT  display  consoles  as  part  of  an  exploratory  development  program  related 
to  computer-based  information  processing  systems.  The  two  display  consoles, 
each  with  a  light-pen  and  alphameric  keyboard,  were  connected  to  a  prev¬ 
iously  installed  IBM  360  (model  40)  computer.  ISM  2250  programmed  function 
keyboards  are  planned  for  installation  in  the  future  to  supplement  the  cur¬ 
rently  available  1092  function  keyboards. 

Previous  experience  with  off-line  graphics  on  the  NCRC  and  STRETCH  com¬ 
puters  had  already  demonstrated  the  desirability  of  having  subroutines  to 
accomplish  a  variety  of  graphic  functions  such  as  grid  generation,  labelling 
and  plotting.  It  was  therefore  decided  that  subroutines  be  prepared  to 
utilize  the  new  equipment. 

This  memorandum  describes  a  group  of  FORTRAN-callable  subroutines  which 
facilitate  the  utilization  of  the  buffered  IBM  2250  display  units  associated 
with  an  IBM  System  360.  The  subroutines  are  currently  designed  to  operate 
under  OS  and  BPS  FORTRAN  1  and  are  prepared  to  take  advantage  of  the  light- 
pen  facility  and  to  provide  a  means  of  ccmsnunication  which  enhances  man- 
machine  relationships.  Facilities  for  using  the  alphameric  keyboard  and/or 
the  programmed  function  keyboard  are  also  provided.  This  report  indicates 
how  the  subroutines  can  be  assembled  into  larger  functional  units  and  gives 
examples  of  how  this  has  been  done.  It  is  assumed  that  the  reader  is  fa¬ 
miliar  with  FORTRAN  IV  and  has  a  general  knowledge  of  the  IBM  360  and  2250. 

It  should  be  noted  that  the  work  reported  here  describes  a  tool  for 
utilization  of  the  terminal  equipment  and  has  been  written  to  foster  such 
utilization.  Copies, of  the  card  decks  may  be  obtained  upon  request. 

1  This  report  deals  with  the  OS  version.  For  details  on  th.  BPS  version 
see  Reference  (4). 
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II.  GENERAL  SURVEY  OF  THE  FUNCTION  OF  THE  SUBROUTINES 


A.  The  following  eleven  primary  capabilities  are  provided; 

1.  draw  grid  lines, 

2.  label  grid, 

3.  plot  points  or  symbols  or  draw  vectors  at  specified  grid 
coordinates, 

4.  obtain  a  count  of  the  number  of  points  (or  ends  of  vectors) 
that  exceed  the  specified  grid  boundaries, 

5.  position  the  light  beam  in  terms  of  raster  units  and  display 
textual  material, 

6.  position  the  light  beam  in  terms  of  grid  coordinates  and 
display  textual  material, 

7.  delay  computation  while  waiting  for  an  interrupt  from  the 
light  pen,  from  the  programmed  func  tion  keyboard,  or  from  the  end  key 
or  cancel  key  on  the  alphameric  keyboard, and  also  determine  which  of 
these  interrupts  took  place, 

8.  Identify  that  portion  of  a  set  of  displayed  images  (i.e.  grid, 
labels,  individual  points  or  vectors  or  text)  which  has  been  touched  by 
the  light  pen, 

9.  tag  an  image  with  a  number  0  or  1  as  desired  and  also 
have  the  ability  to  obtain  that  tag  when  desired, 

10.  allow  alphameric  data  to  be  entered  from  the  keyboard  by 
inserting  a  cursor  1  where  desired, 

1  The  cursor  is  a  special  symbol  displayed  on  the  CRT  display  area  to 
mark  the  position  at  which  data  from  the  keyboard  is  entered. 
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11.  read  the  contents  of  any  portion  of  the  2250  buffer  (which 
may  have  been  altered  by  the  alphameric  keyboard)into  the  System/360 
memory. 

B.  The  five  groups  of  subroutines  described  in  II.  B.  below  out¬ 
line  the  function  of  subroutines  which  are  essentially  declarative  in 
nature.  Taken  by  themselves,  these  subroutines  may  appear  to  serve  no 
useful  purpose.  They  are  used, however ,  in  providing  those  primary 
capabilities  described  in  section  II.  A. 

1.  There  is  one  subroutine  which  designates  the  device  address 
of  the  2250  to  be  used.  That  is,  which  of  several  2250's  is  to  be 
used.  (See  section  III.  A.  which  describes  suDroutine  GUNIT.) 

2.  there  is  one  subroutine  which  associates  a  set  of  four 
identifying  numbers  with  any  selected  portion  of  the  graphical  or 
textual  material .  Even  the  grid  lines  or  the  labels  can  be  identified. 
(See  section  III.  B.  which  describes  subroutine  GUNAME.) 

3.  There  are  six  subroutines  which  allocate  storage  and  help 
determine  the  portions  of  this  storage  which  are  available  for  use. 

(See  section  III.  C.  which  describes  subroutines  Gl'BUFF,  GUMAP, 

GUCHAN,  GUTTFY,  GRBUF,  GERASE.) 

4.  There  are  four  subroutines  which  permit  the  programmer  to 
declare  grid  specifications.  The  specifications  that  may  be  declared 
a i’o  as  t o  1  lows : 
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a.  Grid  type  (i.e.  rectangular  Cartesian,  polar,  and 
various  logarithmic  plots  (see  section  III.  D.  2.  which  describes 
subroutine  GUTYPE) 

b.  Area  of  display  screen  to  be  occupied  by  the  grid  in 
terms  of  raster  units  (See  section  III.  D.  3.  which  describes  subroutine 
GUSIZE.) 

c.  Grid  scaling  in  terms  of  the  maximum  and  minimum 
coordinate  limits  (See  section  III.  D.  4.  which  describes  subroutine 
GULIM. ) 

d.  Distances  between  tick  marks  on  the  coordinate  axis 
(See  section  III.  D.  5.  which  describes  subroutine  GUGRID.) 

5.  There  is  one  subroutine  which  designates  the  plotting 
mode  in  which  the  functional  values  are  to  be  plotted  i.e.  as  a 
succession  of  points,  as  a  series  of  symbols  or  as  vectors.  See  set 
tion  III.  F.  which  describes  subroutine  GUPI0T. 

C.  The  subroutines  required  for  each  of  the  eleven  primary 
capabilities  are  listed  below  in  an  acceptable  order.  Some  of  the 
routines  require  that  they  be  preceded  by  others.  The  letters  at 
the  right  indicate  by  referencing  the  letter  at  the  left,  those  sub¬ 
routines  which  must  have  been  called  at  some  prior  time.  For  example, 
in  the  sequence  in  II.  C.  1.  below  for  drawing  grid  lines  the  subroutine, 
C-D1SPL  uses  information  obtained  from  GUTTFY,  GUCHAN,  and  GPGRID.  Since 

1  Ac  the  time  of  this  writing  the  routines  are  only  implemented 
for  linear  rectangular  Cartesian  coordinates. 
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GPGRID  uses  six  other  subroutines,  it  may  be  considered  that  GDISPL 
requires  nine  subroutines.  Throughout  the  entire  package  of  subroutines 
no  subroutine  whose  second  letter  is  U  (eg.  GUNIT)  requires  other 
subroutines  to  be  performed  first. 

1.  Draw  grid  lines 

a  GOPEN 

b  GUNIT 

c  GUTTFY 

d  GUMAP 

e  GUBUFF 

f  GUCHAN 

g  GUTYPE 

h  GUSIZE 

i  GUGRID 

j  GULIM 

k  GPGRID  d,  e,  g,  h,  i,  j 

1  GDISPL  c,  f,  k 

m  GOP  CP  b,  1,  a 

n  GWAIT  a,  m 

2.  Label  grid 

a  through  j  same  as  in  part  1  (draw  grid) 
k  GPLABL  d,  e,  g,  h,  i,  j 

1  GDISPL  c,  f,  k 

m  GOPCP  b,  1,  a 

n  GWAIT  a,  m 


3.  Plot  points  or  symbols  or  draw  vectors  at  specified  grid 


coordinates 


a  through  h  same  as  in  part  1  (draw  grid) 


i  GULIN 
j  GUPLOT 
k  GPDATA 
1  GDISPL 
m  GOPCP 


d,  e,  g,  h,  i,  j 
c,  f,  k 
b,  1,  a 


r  GWAIT  '  a,  m 

4.  Obtain  a  count  of  the  number  of  points  (or  ends  of  vectors) 


that  exceed  the  specified  grid  boundaries 


a  through  j  same  as  in  part  3  above 
k  GPDATA  d,  e,  g,  h,  i,  j 
1  COUNT  k 


o.  Position  the  light  beam  in  terras  of  raster  units  and 
display  textual  material. 

a  through  f  same  as  in  part  1  (draw  grid) 
g  GPPOSN 
h  GPTEXT  1 
i  GDISPL 
.1  GOPCP 
GWAIT 


d,  e 
d,  e 

c>  f,  g,  h 
b,  i,  a 

a,  j 


:  G  PR  l  NT  may 


also  be  used  for  display  of  text 
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6.  Position  the  light  beam  in  terms  of  grid  coordinates 
and  display  textual  material. 

a  through  h  same  as  in  part  1  (draw  grid) 
i  GULIM 

j  GPBEAM  d,  e,  g,  h,  i 

k  GPTEXT  d,  e 

1  GDISPL  c,  f,  j,  k 

m  GOPCP  b,  1,  a 

n  GWAIT  a,  m 

7.  Delay  computation  while  waiting  for  an  interrupt  from 
the  light  pen,  from  the  programmed  function  keyboard,  or  from  the 
end  key  or  cancel  key  on  the  alphameric  keyboard  and  also  determine 
which  of  these  interrupts  took  place. 

a  GOPEN 

b  GUNIT 

c  GWAIT  (argument  =0)  a,  b 

d  GOPCP  c,  a 

e  GWAIT  (argument  =  l)xa,  b,  c,  d 

f  GINKEY  a,  e 

In  the  case  of  the  light  pen  interrupt  it  was  assumed 
that  an  image  had  been  displayed  as  described  in  1,  2,  3,  5,  or  6. 

1  d  and  e  are  not  required  if  it  is  desired  to  distinguish  merely 
between  a  light  pen  interrupt  and  any  other  interrupt. 


7 


8.  Identify  that  portion  of  a  set  of  displayed  i.mages  (i.e.  grid, 
labels,  individual  points  or  vectors  or  text)  which  has  been  touched 

by  the  light  pen. 

Identification  of  the  image  (i.e.  grid,  labels,  points  and 
vectors  or  text)  is  made  by  preceding  the  subroutine  GPGRID,  GPLABL, 
GPDATA,  or  GPTF.XT  1  respectively  by  GUNAME  2  . 

After  the  call  to  GDISPL  as  shown  in  1,  2,  3,  5,  6  the 
following  subroutines  should  be  used  to  obtain  the  identification  of 
touched  image. 

a  GWA1T  (argument  =  0) 
b  GOPCP  a 

c  GMGET  b 

9.  Tag  an  image  with  a  number  0  or  1  as  desired.  After 
tagging  an  image  the  tag  for  that  image  may  be  obtained. 

An  image  may  be  tagged  by  following  the  subroutine 
GFGR1D,  GPLABL,  GPDATA,  or  GPTEXT,  GPRINT,  GPPOSN,  or  GPBEAM  with  a 
call  to  GMPIAG.  To  retrieve  a  tag  for  an  image  the  subroutine  GMGTAG 
may  be  used  at  any  time. 

10.  Allow  alphameric  data  to  be  entered  from  the  keyboard  by 
inserting  a  cursor. 

GPRINT  ninv  also  to  used  for  display  of  text 

iG-icr.  GIN.VT.  precedes  GPBEAM  or  GPPOSN  then  the  light  beam  portion 
also  becomes  identified. 
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To  insert  a  cursor  for  any  image  follow  the  subroutine 
GPGRID,  GPLABL,  GPDATA,  GPTEXT,  GPRINT,  GPPOSN,  or  GPbEAM  (See 
section  III.  F.  1-8.)  with  a  call  to  subroutine  GMCURS. 

11.  Read  the  contents  of  any  identified  portion  of  the  2250 
buffer  (which  may  have  been  entered  by  the  alphameric  keyboard)  into 
the  System  360  memory, 
a  CREAP 

b  GOPCP  a 

c  GWAIT  b,  a 

It  is  assumed  that  prior  to  the  call  for  GREAD  an  identified  image 
had  been  sent  to  the  2250.  The  identification  was  made  through  the 
use  of  the  GUNAME  subroutine.  (See  section  III.  B.  2.) 
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III.  DETAILED  DESCRIPTION 


A.  Identification  of  Device 

1.  General  information 

Since  more  than  one  2250  may  be  connected  to  the  IBM  System 
360,  it  is  necessary  to  specify  which  of  these  display  devices  is  to 
be  employed.  At  the  time  of  this  writing  only  two  2250's  are  available 
at  NVJL.  The  one  nearest  the  system  360  has  tha  device  address  2D1i6 . 

That  is,  it  is  on  selector  channel  2  subchannel  Dl.  The  other  2250 
has  the  device  address  2D0i6 •  The  subroutine  GU'JIT  performs  the  function 
of  declaring  which  2250  device  is  to  be  used.  It  stores  the  device 
number  (eg.  2D1  or  2D0)  in  the  word  GUNI  of  the  communications  region 
(See  APPENDIX  A) . 

2.  Subroutine  GUNIT 

(Graphic  -  UNIT  identification) 

Call  line: 

CALL  GUNIT  (IDA) 

where 

IDA1  is  the  address  containing  the  decimal  equivalent 
of  the  device  address  (That  is  IDA  =721  for  2D11S  and  IDA  =  720  for 
2D016). 

1  Fixed  point  and  floating  point  variables  in  the  call  lines  of  all 
subroutines  contained  in  the  memorandum  are  distinguished  by  the 
usual  FORTRAN  notation  (i.e.  variables  beginning  with  I,  J,  K,  L, 

M,  N  are  fixed  point  variables.) 


10 


B.  Identification  of  Image 
i.  General  information 

The  identification  provides  a  convenient  tool  for  referr¬ 
ing  to  a  grid,  the  grid  labels  and  various  portions  of  graphic  or  textual 
material  which  shall  be  called  images.  Each  image  may  be  identified  by  a 
set  of  four  integers  (Nx  ,  Ns,  Jij  ,  N*  )  each  requiring  no  more  than  eight 
bits.  Nx ,  which  is  the  first  number  written  in  the  set,  is  referred  to 
as  the  1st  level  name.  Ng  is  the  2nd  level  name  etc.  A  programmer  can 
refer  to  an  image  name  by  referring  to  that  particular  set  of  four  numbers 
associated  with  the  image.  In  addition  a  programmer  can  refer  to  all 
images  whose  first  level  name  is  a  particular  number  or  whose  first  and 
third  level  names  are  a  particular  pair  of  numbers  or  any  other  combination 
of  this  type.  To  illustrate  the  convenience  of  this  naming  technique  the 
following  example  is  presented: 

Assume  a  square  plotted  on  a  labeled  grid. 

(See  figure  1) 
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In  figure  1  the  numbers  in  parentheses  are  the  identification. 
In  those  cases  where  only  3  numbers  are  specified  they  represent  the 
first  3  levels.  (The  fourth  level  exists  but  is  unspecified.  Missing 
levels  are  assumed  to  be  zero  until  a  number  has  been  assigned  to  that 
level).  In  figure  1  the  labels  are  assigned  the  first  three  level  iden¬ 
tification  numbers  (1,  3,  1);  the  grid  with  the  tick  marks  are  identified 
by  the  first  three  levels  with  numbers  (1,  3,  2);  the  upper  edge  of  the 
square  is  identified  by  four  levels  with  the  numbers  (1,  1,  1,  1)  the 
right  side  of  the  square  is  identified  by  three  levels  with  the  numbers 
(1,  2,  4);  the  bottom  side  is  identified  by  the  first  three  levels 
with  numbers  (1,  1,  2);  the  left  side  is  identified  by  4  levels  with 
the  numbers  (1,  2,  3,  1). 

In  order  to  refer  to  this  entire  figure,  it  is  only  necessary 
to  specify  all  those  images  whose  first  level  is  1.  In  order  to  refer 
to  just  the  top  and  bottom  sides  of  the  square  it  is  only  necessary  to 
specify  those  images  whose  second  level  is  1.  In  order  to  refer  to 
the  grid,  the  labels,  the  top  and  left  hand  side  of  the  square  it  would 
be  permissible  to  specify  those  images  whose  second  level  is  3  and 
also  to  specify  those  images  whose  fourth  level  is  1. 

The  manner  of  specifying  the  desired  images  to  be  operated 
on  by  subroutines  GERASE,  GDISPL,  GREAD,  GMPTAG,  and  GMGTAG  is  des¬ 
cribed  in  sections  III.  C.  11.,  III.G.,  III.H.2.,  and  III.  H.  3. 
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In  order  to  associate  an  identification  with  an  image, 

i 

a  new  entry1  is  made  into  a  region  called  the  map  (See  APPENDIX  B) . 

This  entry  is  made  each  time  a  set  of  orders  and  associated  data  bytes2 
are  composed  which  when  sent  to  the  2250  will  position  the  light  beam 
or  generate  a  desired  image.  (The  routines  which  compose  these  orders 
and  data  bytes  are  known  as  the  buffer  preparation  subroutines.  See 
section  III,  F.)  The  map  entry  is  in  effect  a  correspondance  table 
between  the  location  of  these  orders  and  data  bytes  in  the  360  storage 
composed  by  the  buffer  preparation  subroutines  and  the  name  associated 
with  the  image  generated  by  those  orders  and  data  bytes.  At  the  time 
of  the  composition  of  the  orders  and  data  bytes  for  generating  images, 
the  name  is  obtained  from  the  communications  region  into  which  the  name 
has  been  placed  by  subroutine  GUNAME  prior  to  a  call  to  the  buffer  prep¬ 
aration  subroutine.  Putting  the  number  in  the  communications  region 
does  not  in  itself  identify  a  portion  of  the  image.  A  name  is  entered 
in  the  map  only  by  a  call  to  one  of  the  buffer  preparation  “outines 
which  consists  of  the  following  sets  of  seven  subroutines3 : 

1.  GPP0SN 

2.  GPBEAM 

If  the  identifying  name  is  already  in  the  map  a  completely  new  entry  is  not 
always  made.  This  is  described  in  an  ensuing  paragraph. 

■*  See  reference  1. 

3 

It  is  easy  to  recogntae  these  subroutines  since  they  are  the  only 
ones  whose  first’ two  letters  are  GP. 
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3,  GPDATA 


4.  GPTEXT 

5.  GPGRID 

6.  G PRINT 

7 .  GPLABL 

Each  of  thes-j  subroutines  and  only  these  compose  the  orders  which  are 
to  be  sent  to  the  2250  for  positioning  the  beam  or  displaying  images. 

When  a  new  entry  is  made  in  the  map.  the  360  location 
of  the  orders  that  were  composed  and  the  number  of  consecutive  bytes 
occupied  by  these  orders  are  stored  in  the  map  along  with  the  4  level 
identification.  In  addition  a  phony  value  (of  7FFF16 )  is  made  up  for 
the  1st  location  at  which  these  orders  have  been  placed  in  the  2250 
buffer.  The  value  is  phony  because  the  orders  have  not  yet  been  sent 
to  the  2250  buffer.  (The  tag  bit  of  the  map  is  set  to  zero.) 

If  the  same  4  level  identification  had  previously  been 
entered  in  the  map  and  if  the  latest  set  of  composed  orders  are 
contiguous  in  storage  with  those  already  indicated  by  the  map  for  that 
same  4  level  name  then  a  completely  new  entry  is  not  made  in  the  map; 
it  is  necessary  to  increase  the  number  of  bytes  occupied  by  the  orders. 
A  phony  value  of  7FFFj6  is  again  made  up  for  the  1st  location  at  which 
these  orders  have  been  placed  in  the  2250  buffer  (and  the  tag  bit  is 
left  unaltered). 
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2.  Subroutine  GUNAME 
(Graphic  User  NAME) 

Call  line: 

CALL  GUNAME  (Nl,  N2,  N3,  N4) 

where 

Nl,  N2,  N3,  N4  are  the  addresses  containing  the  4  identi¬ 
fying  names  corresponding  to  levels  1  through  4.  The  following  calls 
are  also  permitted: 

CALL  GUNAME  (Nl,  N2,  N3) 

CALL  GUNAME  (Nl,  N2) 

CALL  GUNAME  (Nl) 

When  any  of  these  last  3  calls  are  employed  the  missing  levels  are 
assumed  to  be  the  previous  number  assigned  to  that  level  (originally 
set  to  zero) . 

C.  Storage  Allocation  Subroutines 

1.  General  information 

In  addition  to  the  communication  region,  there  are  3 
other  types  of  storage  areas  in  the  IBM  360  used  by  the  graphic 
routines.  They  will  be  known  as: 

a.  the  360  buffer 

b .  the  map 

c.  the  channel  command  program  storage 

2.  The  360  buffer 

As  mentioned  in  section  I1I.B.1.,  mode  orders  (graphic, 
character  and  control)  and  data  bytes  must  be  stored  in  the  IBM 
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System  360  prior  to  being  sent  to  the  IBM  2250  buffer.  These  mode 
orders  and  data  bytes  are  generated  and  stored  in  "the  360  buffer" 
by  the  7  subroutines  whose  first  two  letters  are  GP.  See  section 
III.  T.  Not  all  of  the  orders  and  data  bytes  stored  in  the  360  buffer 
need  be  sent  to  the  2250  for  display;  only  those  corresponding  to 
images  which  are  specified  through  appropriate  identification  are 
sent  (See  subroutine  GDISPL) .  The  location  of  the  start  of  the  storage 
to  be  used  for  this  buffer  is  placed  in  the  communication  region  by 
subroutine  GUBUFF.  The  maximum  ai.  unt  of  storage  (in  bytes)  available 
for  this  buffer  is  also  supplied  by  G'JBUFF.  The  last  address  available 
for  the  buffer  is  computed  and  placed  in  the  communication  region  by 
suoroutine  GL'BUFF.  This  subroutine  also  initializes  the  current  address 
in  rfhich  the  next  set  of  orders  and  data  bytes  are  to  be  placed.  As 
data  is  generated  and  entered  into  the  buffer,  a  running  account  of  the 
next  location  available  for  storage  is  kept  in  the  communication  region. 
Thus  if  the  subroutines  GPP0SN  and  GPTEXT  are  called  successively,  the 
mode  orders  and  data  bytes  for  these  two  routines  will  appear  as  con¬ 
tiguous  groups  of  bytes  within  the  buffer  area. 

3.  Subroutine  GUBUFF 

(Graphic  User  BUFFer) 

Call  line: 


CALL  GUBUFF  (Ab,  NB) 


where 


AB  is  the  first  address  of  the  array  to  be  used  for  the 

360  buffer. 

NB  is  the  address  containing  the  maximum  number  of 
bytes  allocated  for  use  by  the  buffer. 

The  following  approximate  rules  will  aid  in  deciding  the 
number  of  Ly'-'S  which  will  be  required  for  each  of  the  subroutines 
that  employ  the  360  buffer: 

GPPOSN  requires  6  bytes, 

GPBEAM  requires  6  bytes, 

GPDATA  requires  a  maximum  of  4  bytes  +  4  bytes  per  data 
point  +  6  bytes  per  character  other  than  the  null  character  (the  null 
character  requires  no  additional  bytes), 

GPTEXT  requires  2  bytes  +  2  bytes  for  every  pair  of 

characters, 

GPGRID  requires  a  maximum  of  30  bytes  +  8  bytes  for  each 
horizontal  tick  mark  or  grid  line  +  8  bytes  for  each  vertical  tick 
mark  or  grid  line, 

GPRINT  requires  a  maximum  of  6  bytes  +  the  number  of 
bytes  equal  to  the  size  of  the  field  widths,  i.e.  if  the  format  is 
(4HTEST,  I5,F10.4)  then  19  bytes  are  required, 

GPLABL  requires  a  maximum  of  8  bytes  for  each  label  +  the 
number  of  bytes  equal  to  the  size  of  the  field  width  for  each  label. 
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i.e.  if  there  are  5  labels  on  the  horizontal  axis  and  3  labels  on 
the  vertical  axis  whose  field  widths  are  4  and  6  respectively  then 
a  total  of  102  bytes  are  required. 

The  program  will  call  a  diagnostic  subroutine  if  insuffi¬ 
cient  storage  is  allocated  for  the  360  buffer. 

4.  The  Map 

Each  time  an  image  with  a  different  identification 
number  set  or  each  time  an  image  with  the  same  identification  as  another 
already  in  the  360  buffer  but  not  contiguous  with  its  namesake,  is 
generated  and  stored  in  the  360  buffer, a  new  entry  is  made  into 
the  map  region.  (See  APPENDIX  B.)  This  12  byte  entry  serves  as  a 
correspondence  table  between  image  name  and  that  area  of  the  360  buffer 
and  2250  buffer  containing  the  code  which  generates  that  image.  [l\e 
map  is  also  used  to  store  a  tag  which  may  be  associated  with  the  image. 
(See  subroutines  GMPTAG  and  GMGTAG  section  III.  H.)  In  addition,  the 
map  stores  the  2250  buffer  location  (relative  to  the  1st  position  in 
the  2250  for  that  image) into  which  the  cursor  is  to  be  placed  for  those 
images  requiring  a  cursor.  For  those  images  not  requiring  a  cursor,  the 
number  of  bytes  from  the  1st  position  for  that  image  is  set  to  7FFF1S  in 
the  map.  (The  information  regarding  the  cursor  is  placed  into  the  map 
by  subroutine  GMCURS  1  .)] 

The  location  of  the  start  of  the  map  and  the  maximum 

1  See  section  III.  F.  5. 
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number  of  entries  to  be  made  in  the  map  are  placed  into  the  communi" 
cations  region  by  subroutine  GUMAP.  This  subroutine  also  initializes 
to  zero  the  current  number  of  entries  in  the  map.  As  each  additional 
entry  is  made,  the  current  number  of  entries  is  increased  by  one. 

The  number  of  bytes  which  must  be  reserved  for  use  by 
the  map  is  equal  to  12  times  the  maximum  number  of  entries.  The 
program  will  call  a  diagnostic  subroutine  if  insufficient  storage  is 
allocated  for  the  map. 

5.  Subroutine  GUMAP 

(Graphic  User  MAP) 

Call  lines: 

CALL  GUMAP  (AM,  M) 

where 

AM  is  the  first  address  of  the  array  to  be  used  by  the  map 

M  is  the  address  containing  the  maximum  number  of  12  byte 
entries  permitted  in  the  map  at  any  one  time.  The  contents  of  M  mis  t 
be  less  than  216  . 

6.  The  Channel  Command  Program  Storage 

In  order  to  communicate  with  the  IBM  2250 , a  channel 
program  must  be  operated.  This  channel  program  can  direct  the  read¬ 
ing  of  data  from  the  360  storage  into  the  2250  buffer  or  from  the  2250 
buffer  into  the  360  storage;  this  channel  program  is  created  by  sub¬ 
routine  GDISPL  or  GREAT)  respectively.  The  subroutine  GWAIT(O)  also 
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creates  a  channel  program  to  read  out  the  2250  sense  bytes  1  or  the 
manual  input  bytes  2.  The  location  of  the  start  of  the  storage  for  the 
channel  program  is  placed  in  the  communications  region  by  the  subroutine 
GUCHAN.  The  maximum  amount  of  storage  (in  bytes)  available  for  this 
channel  program  is  also  supplied  by  GUCHAN.  The  last  address  avail¬ 
able  for  the  channel  program  is  computed  and  placed  in  the  communi¬ 
cations  region  by  subroutine  GUCHAN.  This  subroutine  also  initializes 
the  current  address  in  which  the  next  set  of  channel  control  words  are 
to  be  placed.  This  current  address  is  reinitialized  to  the  first  address 
available  when  each  new  channel  program  is  created  by  calls  to  GDISPL, 
GREAD,  or  GWAIT.  This  current  address  is  only  used  for  bookkeeping 
within  those  subroutines. 

When  using  GDISFL,  the  maximum  amount  of  storage  required 
by  the  channel  program  is  given  by  the  formula: 

#  of  bytes  =40+8  bytes  for  each  image  in  map  to  be 

displayed  +  16  for  cursor  if  there  is  one. 

When  using  GREAD,  the  maximum  amount  of  storage  required 
by  the  channel  program  is  given  by  the  formula: 

#  of  bytes  =  32 

When  using  GWAIT(O)  the  maximum  amount  of  storage  required 
by  the  channel  program  is  given  approximately  by  the  formula: 

1  See  reference  1. 

See  section  III.  G. 
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#  of  bytes  =  24 

The  program  will  call  a  diagnostic  subroutine  if  insufficient 
storage  is  allocated  for  the  channel  program. 

7.  Subroutine  GUCHAN 

(Graphic  User's  CHANnel  program  storage) 

Call  lines: 

CALL  GUCHAN  (AC,  NC) 

where 

AC  is  the  first  address  of  the  array  to  be  used  for  the 
channel  program.  This  address  is  increased  to  the  next  double  word 
boundary  before  being  placed  into  GUCH  of  the  communications  region 
since  all  channel  programs  must  begin  at  a  double  word. 

NC  is  the  address  containing  the  maximum  number  of  bytes 
allocated  for  use  by  the  channel  program. 

8.  The  2250  Buffer 

The  IBM  2250  buffer  may  be  shared  between  more  than  one 
display  unit.  Therefore  more  than  one  set  of  order  codes  may  occupy 
the  buffer  simultaneously.  It  is  a  requirement  that  the  buffer  storage 
to  be  used  by  each  set  of  orders  be  specified.  The  absolute  location 
of  the  start  of  each  set  and  the  maximum  number  of  bytes  of  the  buffer 
allocated  to  this  set  is  placed  into  the  communications  region  by  the  sub- 
routine  GUTTFY.  If  the  number  of  bytes  sent  to  the  buffer  by  the  channel 
program  exceeds  the  amount  allocated,  the  program  will  call  a  diagnos¬ 
tic  subroutine. 
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9.  Subroutine  GUTTFY 

(Graphic  User's  Two  FiftY  buffer) 

Call  lines: 

CALL  GUTTFY  (MT,  NT) 

where 

MT  is  address  containing  the  absolute  location  of  the 
first  address  available  in  the  2250  for  this  set  of  oiders.  If  the 
contents  of  MT  is  odd,  then  "MT"  +  1  is  placed  into  GUTT  of  the 
communications  region  and  "NT"  -1  is  placed  into  GUTT  +  2  bytes1. 

NT  is  the  address  containing  maximum  number  of  bytes 
available  in  the  2250  buffer  for  this  set  of  orders. 

10.  Subroutine  GRBUF 

(Graphic  -  Read  the  number  of  bytes  currently  used  in 
the  360  BUFfer) 

By  obtaining  the  difference  between  the  current  address 
in  which  the  next  buffer  preparation  subroutine  will  place  its  output 
and  the  first  address  of  the  array  to  be  used  for  the  360  buffer,  the 
program  can  compute  how  much  of  the  360  buffer  has  been  already  filled. 
This  difference  is  obtained  by  using* subroutine  GRBUF. 

Call  line: 

CALL  GRBUF  (IBUF) 

where 

IBUF  is  address  to  be  set  to  the  difference  in  bytes 
between  the  current  address  in  which  to  start  storing  the  output  of 

1  The  notation  "MT"  signifies  the  contents  of  the  address  MT. 
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the  buffer  preparation  subroutine  to  be  operated  next  and  the  first 
address  of  the  array  to  be  used  for  the  360  buffer.  (Both  of  these 
quantities  are  found  in  the  communication  region.) 

11.  Subroutine  GERASE 

(Graphic  -  ERASE  entries  in  map) 

In  order  to  eliminate  entries  in  the  map,  the  subroutine 
GERASE  may  be  used.  A  major  use  for  this  subroutine  would  be  to 
conserve  map  storage  by  eliminating  map  entries  no  longer  needed. 

The  entries  following  those  eliminated  are  pushed  up  to  consolidate 
the  entries  in  the  map  and  the  count  of  current  number  of  entries  in 
the  map  located  in  the  communication  region  is  altered  to  reflect  the 
new  number  of  current  entries.1 
Call  Lines: 


option  1: 

CALL  GERASE  (1^  ,  Is ,  I3  ...  ) 

where  IT  ,  Is,  I3  etc.  are  the  addresses  containing  first  level  identifi¬ 
cation  numbers  of  those  images  whose  associated  map  entries  are  to  be 
eliminated.  All  images  created  thus  far  whose  first  level  identifi¬ 
cation  number  is  given  in  IT ,  Ia  ,  I3  etc.  are  effectively  eliminated 
from  further  use.  The  storage  thus  saved  in  the  map  will  then  be  reused 
as  additional  entries  are  made. 

1  In  eliminating  the  entries  in  the  mup  the  subroutine  does  not 
currently  eliminate  the  corresponding  entries  in  the  360  buffer. 

Areas  in  the  360  buffer  can  be  reused  by  reinitializing  the  buffer 
by  means  of  a  call  to  the  GUBUFF  subroutine.  The  area  of  the 
buffer  used  by  any  particular  image  may  be  determined  by  appropriate 
use  of  the  GR3UF  subroutine. 
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^83  j  •  •  • 

where 


CALL  GERASE  (M^ ,  ^ ,  J12 ,  3 ,  ...  ,  ,  Mg  ,  J21  ,  J22  , 


»  ^2<2  ’  '*■  ^i>2'  •••  >  ^nl  - 


Mi  ,  Vq  ,  • • • ,  ,  . . . ,  M„  are  the  addresses  containing  masks 

which  indicate  which  levels  of.'  identification  are  to  be  considered. 

The  masks  are  distinguishable  from  any  of  the  values  contained  in  Jk> 
in  that  10000  2  "  £  11111  where  as  "JkE"  must  be  identification 

numbers  (i.e.  '  JkB"  <  256).  "  can  take  on  the  following  integer 

values  (base  10)  10000,  10001,  10010,  10011,  10100,  10101 ,  10110, 

10111,  11000,  11001,  11010,  11011,  moo,  mol,  mio,  inn. 

If  "Hj  "  has  a  value  of  1  in  the  thousands  position  and 
zeroes  elsewhere  then  "J^",  "Jk3",  etc.  are  the  first  level 

identification  of  all  those  images  which  are  designated  to  be  operated 
upon  by  the  subroutine  irrespective  of  what  is  in  the  other  levels. 

If  ^  has  a  value  of  1  in  the  hundreds  position  and  zeroes 
elsewhere,  then  "Jki" ,  "Jk2",  nJk3"  etc.  are  the  second  level  identi¬ 
fication  of  all  those  images  which  are  designated  to  be  operated  upon 
by  the  subroutine  irrespective  of  what  is  in  the  other  levels.  Similarly 
the  tens  position  and  unit  positien  refer  to  the  third  and  fourth  level 
names  respectively.  If  "  has  a  1  in  the  thousands  position  and 
hundreds  position  and  zeroes  elsewhere  then  each  of  the  pairs  of  values 


"*W  and  "Jk3"»  "-W»  *-ld  "Jk5”»  %«  "«tc*  are  the  first 
and  second  level  identification  of  all  those  images  which  are  desig¬ 
nated  to  be  operated  upon  by  the  subroutine  irrespective  of  what  is 
in  the  other  levels. 

In  like  manner  any  level,- pair  of  levels,  triple  of 
levels  or  the  entire  four  level  identification  may  be  designated. 

The  zero  digit  appearing  in  the  mask  indicates  that  any 
value  appearing  in  that  corresponding  level  of  identification  is 
acceptable. 

Option  2  of  the  GERASE  subroutine  is  similar  to  option  1 
in  that  all  images  which  are  designated  by  the  parameters  are  effect¬ 
ively  eliminated  from  further  use.  The  storage  thus  saved  in  the  map 
is  made  available  for  further  use.  Option  1  of  GERASE  is  a  special 
case  of  option  2  when  there  is  a  single  mask  "Mi"  «»  11000. 

A  special  case  of  option  2  is 

CALL  GERASE  (10000) 

where 


10000  implies  that  all  images  in  the  map  are  to  be 

affected. 

D.  Grid  Specification  Routines 
1.  General  information 

The  4  subroutines  GIJTYPE,  GULIM,  GUSIZE,  and  GUGRID  are 
declarative  in  nature.  They  merely  store  information  in  the  communi¬ 
cations  reg’.on.  This  information  is  later  tfsed  by  those  subroutines 
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which  prepare  the  data  for  the  360  buffer.  (See  section  III.  F.). 

The  entire  set  of  routines  have  only  been  implemented  for  the  linear 
cartesian  coordinate  system.  Wit'  the  exception  of  subroutine  GUTYPE 
it  has  not  yet  been  determined  what  call  lines  will  be  employed  for 
systems  other  than  the  linear  cartesian  coordinates.  In  discussing 
GULIM,  GUSIZE,  and  GUGRID  only  linear  cartesian  coordinates  will  be 
considered  in  this  memorandum. 

2.  Subroutine  GUTYPE 

(Graphic  User's  TYPE  of  grid) 

Call  line: 

CALL  GUTYPE  (ITYPE) 

where 

ITYPE  is  the  address  of  a  control  which  determines  the 
coordinate  system  to  be  used  as  follows: 

"ITYPE"  =  1  means  linear  in  X,  linear  in  Y 
"ITYPE"  =  2  means  logarithmic  in  X,  linear  in  Y 
"ITYPE"  =  3  mea-s  logarithmic  in  X.  logarithmic  in  Y 
"ITYPE"  -  4  means  linear  in  X,  logarithmic  in  Y 
"ITYPE"  =  5  means  polar 

Note:  implemented  only  tor  I  =  1  at  the  time  of  this  writing 

3.  Subroutine  GULIM 
(Graphic  User's  LIMits) 

Call  line: 

CALL  GULIM  (UL,  VI,  U2,  V2) 
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where 


Ul" 

=  lower 

limit 

of 
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4.  Subroutine  GUSIZE 

(Graphic  User's  SIZE  of  image  or.  2250  screen) 

Cali  line: 

CALL  GUSIZE  (IUl,  IV1,  IU2,  IV2) 

where 


IU1  and  IV1  are  the  addresses  containing  the  coordinates 
in  raster  units  of  the  lower  left  hand  corner  and  IU2  and  IV2  are 
the  addresses  containing  the  coordinates  in  raster  units  of  the  upper 
right  hand  corner  of  the  portion  of  the  2250  screen  to  be  used.  The 
point  ("Ul",  "VI")  is  made  to  correspond  to  the  CRT  coordinates  given 
by  ("IU1",  "IV1").  The  point("U2" ,  "V2")  is  made  to  correspond  to 
the  CRT  coordi.. Ues  given  by  C'IU2",  "IV2").  Ul,  VI,  U2,  V2  are  given 
by  subroutine  GULEM.  ..11  other  points  ("U^  " ,  "Vk  ")  to  be  plotted  are 
transformed  by  the  buffer  preparation  routines  according  to  the  linear 


transformation  Il’k  =  "lUI" 


IU2"  -  "jUl" 
"U 2"  -  "»n” 


Ul’ 


"ll  "  -  "lil" 
1 


[V„  "1V1"  +  — :-X.2- 


_".mn 


"V2"  -  "Vi* 


-  "VI” 


where 
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,  vk). 


IU  ,  ivk  are  the  raster  units  corresponding  to  the  points 


0  £  "IU1"  £  1023 
0  £  "IV1"  £  1023 
0  <:  "IU2"  ^  1023 
0  <  "IV2"  <  1023 

If  grids,  or  labels  are  used,  enough  room  must  be  left  around  the  edges  of 
the  grid  to  permit  the  tick  marks  or  labels  to  be  displayed. 

5.  Subroutine  GUGRID 

(Graphic  User  axis  and  tick  mark  information  for  GRID  system) 

Call  line: 

CALL  GUGRID  (X0,  YO,  DX,  DY,  NX,  NY,  IG) 

where 

XO,  YO  .epresents  addresses  containing  the  coordinates  of 
the  point  of  origin  (in  problem  units,  not  raster  units)  for  which  grid 
lines  will  be  prepared  in  the  360  buffer  if  subroutine  GPGRID  is  callc 
subsequently.  (See  section  III.  F.  6.) 

DX  represents  the  address  containing  the  horizontal  interval 
from  ’'XO"  to  "U2"  and  from  "XO"  to  "Ul"  at  which  additional  grid  lines 
or  large  tick  marks  will  be  placed  and  axis  labels  can  be  written.  (See 
section  II.  F.  8.  for  description  of  axis  labeling).  Ul  and  U2  are 
specified  by  subroutine  GULIM.  Additional  vertical  grid  lines  are  speci¬ 
fied  at  this  interval  if  "IG"  =  2  or  3;  tick  marks  are  specified  if  "IG" 

=  0  cr  1. 


DY  represents  the  address  containing  the  vertical  interval 


from  "YO"  to  ”V2"  and  lrom  "YO"  to  "VI"  at  which  points  additional 
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grid  lines  or  large  tick  marks  will  be  placed  and  axis  labels  can  be 
written.  VI  and  V2  are  specified  by  subroutine  GULIM.  Additional 
horizontal  grid  lines  are  specified  at  these  intervals  if  "IG"  = 

1  or  3;  tick  marks  are  specified  if  "IG1'  *  0  or  2. 

NX  represents  the  address  containing  the  number  of 
small  tick  marks  to  be  inserted  equally  spaced  within  each  "DX" 
interval.  NX  ^  0. 

NY  represents  the  address  containing  the  number  of 
small  tick  marks  to  be  inserted  equally  spaced  within  each  "DY" 
interval.  NY  ^0. 

IG  is  the  address  containing  a  control  such  that  when 
GUGRID  is  used  in  conjunction  with  GUSIZE,  GULIM,  and  GPGRID,  the 
GPGRID  -routine  will  cause  graphic  mode  orders  to  be  placed  .n  the  360 
buffer  which  when  sent  to  the  2250  buffer  will  draw  the  lines  segments 
as  follows: 

when  "IG"  =  0  see  figure  (2) 

a.  line  segments  ("IUl",  "IVl")  to  ("IUZ",  "IV1")  and 
("IU1",  "IVl")  to  ("IU1",  "IV2",  will  be  generated. 

b.  horizontal  and  vertical  line  segments  through  the 
origin  "XO",  "YO"  which  will  extend  from  20  raster  units  below  "IVl" 
to  "IV2"  and  20  raster  units  from  the  left  of  "IU1"  to  "IU2"  will  be 
generated. 

c.  tick  marks  will  be  placed  at  intervals  of  "DX"  and  "DY" 
from  'X0" ,  "YO"  along  the  horizontal  and  vertical  axis  respectively. 
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The  ticks  will  be  20  raster  units  in  length  and  will  be  placed  between 
the  horizontal  lines  "IV1"  -  20  and  "1V1"  and  the  vertical  lines  "IUl" 

-  20  and" IUl"  and  also  along  the  horizontal  and  vertical  lines  which  pass 
through  the  origin. 

d.  Additional  tick  marks  will  be  inserted  as  specified  by 
"NX"  and  "NY".  These  additional  tic  .s  will  be* 12  raster  units  in 
length. 


20  raster  units 

•r 


20  raster  units 


(JU2  ,IV2) 
.  iS 


(IUl, IV 


Figure  2 
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If  "XO"  or  "YO"  lie  outside  of  the  upper  and  lower  limits 
given  by  GULIM  then  a  new  axis  origin  is  assumed  to  be  at  the  point  corres¬ 
ponding  to  "IU1",  "IV1". 

If  "NX"  or  "NY"  is  zero  no  additional  tick  marks  are  inserted 
in  the  "DX"  or  "DY"  interval  respectively. 

When  "1G"  =  1 

all  the  segments  specified  by  "IG"  =  0  are  obtained  but  the  tick 
marks  positioned  at  the  intervals  of  "DY"  are  extended  to  the  vertical 
at  "1X2".  This  gives  horizontal  grid  lines. 

When  "IG"  =  2 

all  Che  segments  specified  by  "IG"  =  0  arc  obtained  but  the  tick 
marks  positioned  at  tne  interval  of  "DX"  are  extended  to  the  horizontal 
line  at  "TY2".  This  gives  vertical  grid  lires. 

When  "IG"  =  3 

all  the  line  segments  specified  by  "TO"  =  1  and  "IG  =  2  are 
obtained . 

E.  Plotting  Mode 

1.  General  information 

There  is  1  subroutine  GUPL0Y  which  Specifies  to  the  GPDATA 
subroutine  (See  section  F)  whether: 

a.  vectors  are  to  be  drawn  cnnsee.it  i"*'  1\  from  point  to  point 
of  a  set  o!  points  whose  coordinates  are  specified.  That  is,  the  first 
point  is  connected  to  the  second;  the  second  point  is  connected  to  the 
third,  etc. 
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b.  pairs  of  coordinates  are  to  be  plotted  as  points. 

c.  the  beam  is  to  be  positioned  at  each  pair  of  points 
without  intensification  of  the  beam.  (This  is  for  the  purpose  of  per¬ 
mitting  symbols  to  be  plotted  without  vectors  or  point  plotting. 

This  subroutine  is  declarative  in  nature  and  merely  stores 
its  argument  in  the  commuriicat ion  region. 

The  determination  of  values  of  the  coordinates  is  given  by 
the  arguments  to  subroutine  GPDATA.  See  section  F. 

2.  Subroutine  GUPLOT 

(Graphic  Users  information  on  how  to  PLOT  coordinates) 

Call  line: 

CALL  GUPLOT  (I) 

where 

"I"  =  0  means  vector  plotting  (as  in  III.  E.  1.  a.  above) 
and  is  typically  used  in  drawing  images  as  shown  below 


where 


II 


1”  = 


is  typical lv  used 


1  means  point  plotting  (as  in  111. 
in  drawing  images  as  shown  below 


E. 


1 . e ,  above)  and 


33 


where 

"I"  =  2  means  beam  positioning  without  intensification  (as  in 

II.  E.  1.  c.  above)  and  is  typically  used  in  drawing  images  as  shown 

below  E 

B  .  D 

A  C 

_  _ 

F.  Buffer  Preparation  Subroutines 

1.  General  information 

There  are  7  subroutines  1  GPPOSN .  GPBEAM,  GPDATA,  GPTEXT, 
GPGRID,  GPRINT,  GPLA3L  which  place  data  into  the  360  buffer.  This  data 
consists  of  the  mode  orders  (graphs,  character  and  control)  and  data  bytes 
which  when  sent  to  the  IBM  ?250  (by  the  combination  of  subroutines 
GDISPL  and  GOPCP )  operate  the  display.  Eacl  time  one  of  the  7  buffer 
preparation  routines  is  called,  another  entry  is  made  in  the  map  as 
noted  in  section  III.  B.  1.  In  addition  to  the  arguments  supplied  m 
the  call  lines  to  these  subroutines,  the  communications  region  supplies 
additional  inior'-ation  as  specified  by  other  subroutines  as  follows: 

1  The  buffer  preparation  subroutines  are  easy  td  recognize  since 
they  are  the  only  ones  where  the  first  two  letters  are  GP. 
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Cl-MAP 


GULIM 


GUSIZE 

GUGR1D 


It  is  necessary  that  those  subroutines  providing  information  to  the 
buffer  preparation  subroutines  be  called  prior  to  the  call  to  the  buffer 
preparation  subroutine. 

Section  III.  C.  3.  describes  the  amount  of  360  buffer 
storage  required  by  each  of  the  buffer  preparation  subroutines. 

2.  Subroutine  GPPOSW 

(Graphic  -  Place  data  in  360  buffer  to  POSitioN  beam) 

This  subroutine  generates  the  2250  mode  order  and  data 
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bytes  necessary  to  position  the  beam  to  any  designated  raster  position. 
Call  line: 


CALL  GPPOSN  (I,  J) 

where 

I  and  J  are  the  addresses  containing  the  position  in 
raster  units  to  which  the  beam  will  be  positioned. 

0  £  ”1"  i  1023 
0  £  "J1'  ^  1023 
3.  Subroutine  GPBEAM 

(Graphic  -  Place  data  in  360  buffer  to  position  BEAM) 

This  subroutine  generates  the  2250  mode  orders  and  data  bytes  necessary 

to  position  the  beam.  This  subroutine  is  similar  to  GPPOSN  except 

that  the  arguments  are  in  user  coordinates  instead  of  raster  units. 

Per  linear  cartesian  coordinates  the  raster  units,  Ix  ,  Iy  are  obtained 

by  the  following  linear  transformation  formulas 

1,  =  "iui»  +  "IU2"  -  "IUl" 

"U 2"  -  "Ul" 

"TV2"  -  "TVl” 

Iy  =  "IV1"  +  - — - i-ii - 

"V2"  -  «’V1" 

where 

II’ 1  ,  IV1  ,  IU2,  IV2,  Ul  Vl,  U2,  V2  are  obtained  from  the 
communications  region  and  C  and  D  are  the  addresses  containing  the 
coordinates  of  the  desired  position  of  the  light  beam  in  terms  of 
user  coordinates  (not  raster  units).  C  and  D  are  arguments  of  the 
GPBEAM  subroutine. 


("C"  -  "U:") 


("D"  -  "V) 
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Call  line: 


CALL  GPBEAM  (C,  D) 


where 

C  and  D  are  the  addresses  containing  the  desired  position  of 
the  light  beam  as  desired  in  users  coordinates  (not  raster  units). 

4.  Subroutine  GPDATA  and  Subroutine  GCOUNT 
a.  Subroutine  GPDATA 

(Graphic  -  Place  bytes  in  360  buffer  to  plot  DATA  point 

or  symbols) 

This  subroutine  generates  the  2250  mode  orders  and  data 
bytes  necessary  to  cause  the  plotting  of  a  dependent  variable  as  a  function 
of  an  independent  variable.  The  plotting  may  be  made  with  either  points, 
vectors,  or  symbols  as  described  in  GUPLOT  (See  section  III.  E.  ). 

Call  line: 

option  (0): 

CALL  GPDATA  (IK,  R,  IDR,  S,  IDS,  ISYM,  IDSTM,  NP,  IS) 

where 


IK  is  the  address  containing  the  option  number  "IK"  =  0  for 

opt  ion  0  . 

R  is  the  address  of  the  independent  variable  of  the  first  point 
to  be  plotted  . 

IDR  is  the  address  containing  the  increment  in  words  1  to  the 
address  of  the  independent  variable  to  obtain  succeeding  addresses  of  the 
independent  variables. 

1  One  word  is  equal  to  4  bytes.  If  successive  .addresses  of  the  independent 
variable  are  R(t).  R (3) ,  R(5)  etc.  then  IDR  «  2. 


S  is  the  address  of  the  dependent  variable  of  the  first  point 


to  be  plotted  . 

IDS  is  the  address  containing  the  increment  in  words  to 
the  address  of  the  dependent  variable  to  obtain  succeeding  addresses  of 
the  dependent  variable. 

ISYM  is  the  address  of  the  first  symbol  to  be  plotted.  Since 
a  symbol  only  requires  8  bits,  the  address  is  that  of  the  first  of  the 
8  bits.  A  zero  in  this  byte  produces  the  null  character  which  will 
produce  no  order  code  and  therefore  no  symbol;  however,  if  GUPL  is  0  or 
1,  the  vector  or  point  will  be  displayed.  The  bit  configuration  of  each 
symbol  is  given  in  reference  ' 

IDSYM  is  the  address  containing  the  increment  in  bytes  to 
the  address  of  the  symbol  to  obtain  succeeding  symbol  addresses.  When 
"IDSYM"  is  zero,  the  symbol  obtained  from  the  address  ISYM  will  be  used 
throughout. 

NP  is  the  address  containing  the  number  of  points  to  be 

plotted. 

IS  is  an  address  containing  0  or  1  depending  respectively  on 
whether  a  basic  size  or  large  size  symbol  is  desired. 

option  (1): 

CALL  GPDATA  (IK,  R,  DR,  S,  IDS,  ISYM,  IDSYM,  NP,  IS) 

Option  1  is  the  same  as  option  0  except  that  DR  which  re¬ 
places  tha—fTxed  point  variable  IDR  represents  the  address  containing 
the  increment  to  be  added  to  the  independent  variable  (rather  than  to 
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the  addresi  of  the  independent  variable)  to  form  successive  values  of 
the  independent  variable. 

"IK"  *  1  for  option  1 
option  (2): 

CALL  GPDATA  (IK,  R,  IDR,  S,  DS,  ISYM,  IDSYM,  NPk,  IS) 

Option  2  is  the  same  as  option  0  except  that  DS  which 
replaces  the  fixed  point  variable  IDS  represents  the  address  containing 
the  increment  to  be  added  to  the  dependent  variable  (rather  than  to  the 
address  of  the  dependent  variable)  to  form  nnccessive  values  of  the 
dependent  variable. 

"IK"  «  2  for  option  2. 
option  (3): 

CALL  GPDATA  (IK,  R,  BR,  S,  DS,  ISYM,  IDSYM,  NP,  IS) 

Option  3  is  the  same  •»*  option  0  except  that  DR  and  DS 
replace  the  fixed  point  variables  IDR  and  IDS.  DR  and  DS  have  the 
same  meaning  as  in  option  2  and  3. 

"IK"  »  3  for  option  3. 
b.  Subroutine  GCOUNT 

(Graphic  -  points  outside  the  limit  COUNT) 

During  the  operation  of  GPDATA,  if  any  of  the  values 
of  the  independent  variables  lias  outside  the  range  "Ul"  to  "U2"  or  if 
any  of  the  values  of  the  dependent  variable  lies  outside  the  tauge  "VI" 
to  "V2"  the  corresponding  points,  vectors,  or  symbols  are  not  plotted.1 

1  t  l?a  »  Vj  ,  V3  are  specified  by  subroutine  CUIIM. 
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For  each  point  which  is  not  plotted,  a  counter,  GCOU,  in  the  conTnuni- 
cacions  region  is  increased  by  1.  GCOl’  is  not  automatically  reset  to 
zero  by  »  call  to  GFDATA.  It  can  be  reset  by  subroutine  GCOUNT  in  order 
to  make  the  count  meaningful.  GCOUNT  can  also  be  used  to  place  the 
result  ol'  the  count",  GCOU,  into  a  specified  address.  Since  it  is  possi¬ 
ble  that  all  points  to  be  plotted  lie  outside  the  prescribed  range  the 
buffer  area  occupied  by  such  an  image  would  be  zero.  An  entry  will  still 
be  made  in  the  nap  even  if  the  size  of  the  360  buffer  representing  that 
image  is  zero. 

Call  lines: 

CALL  GCOUNT  (IT,  IE) 

where 

IT  is  the  address  containing  a  0  or  1  depending  respectively 
on  whether  a  value  is  to  be  read  into  GCOU  from  the  address  given  by  IE 
or  out  of  GCOU  into  the  address  given  by  IE. 

5.  Subroutine  GPTEXT  and  Subroutine  GMCURS 

a.  Subroutine  GPTEXT 

(Graphic  -  Place  bytes  in  360  buffer  to  generate  TEXlual 

material) 

This  subroutine  is  used  to  generate  the  appropriate  2250 
mode  orders  and  data  bytes  which  when  sent  to  the  2250  will  cause  alpha¬ 
meric  characters  to  be  displayed.  This  routine  may  be  used  in  making 
headings  or  writing  sentences  etc. 

CALL  GPTEXT  (ITX,  ATX,  NTX) 


Call  line: 


where 


"ITX"  *  0,  1,  4,  or  5  to  select  the  enter  character  mode 
order  1  as  follows: 

If  "ITX"  *  0,  enter  character  mode  fixed,  basic  size 
(unprotected) . 

If  "ITX"  «=  1  enter  character  mode  fixed,  large  size 
(unprotected) . 

If  "ITX"  *  4  enter  character  mode  protected,  basic  size. 

If  "ITX"  *  5  enter  character  mode  protected,  large  size. 

A1X  is  the  address  of  the  first  8  bit  byte  (left  adjusted 
in  a  FORTRAN  word'  representing  an  alphameric  character  to  be  displayed. 

NTX  is  the  address  containing  the  total  number  of  char¬ 
acters  to  be  displayed.  Thus  if  "NTX”  *  7  the  4  bytes  representing  char¬ 
acters  in  the  FORTRAN  word  starting  with  A  and  the  next  3  bytes  in  the 

next  FORTRAN  word  would  be  used  as  the  group  of  data  bytes  following  the 
mod-  order.  The  eight  bit  bytes  must  be  in  the  character  code  described 
in  reference  1.  When  NTX  is  odd  an  even  number  of  bytes  is  generated 
by  adding  a  final  space. 

b.  Subroutine  QiCURS 

(Graphic  Make  CURSor  position  in  image) 

The  cursor  (see  reference  1)  may  be  associated  with  any 

data  byte  for  any  image  in  the  36u  buffer  by  specifying  to  subroutine 

GMCURS  which  byte  of  the  specified  image  stored  in  the  360  buffer 

1  The  numbers  0,  1,  4,  and  5  are  the  units  digits  of  t'r  .  mode  control 
(MC)  when  operation  in  the  uiaracter  mode.  See  reference  1. 
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by  GPTEXT  or  GPRINT  is  Co  bo  associated  with  the  cursor. 


Example:  Suppose  the  image  X=7  is  to  be  positioned  by 
subroutine  GPPOSN  and  then  a  cursor  is  to  be  placed  under  the  7.  Then 
the  11th  byte  should  be  specified  as  an  argument  to  the  GMCURS  subroutine 
because  the  cha.acter  7  would  occupy  the  11th  byte.  The  reason  for 
this  is  as  follows. 

Positioning  requires  6  bytes 
Entering  the  character  mode  requires  2  bytes 
X=7  requires  3  bytes  (i.e.  1  for  each  character) 

6  +  2  +  i  yields  a  total  of  11  bytes. 


Call  line 


option  (1): 


CALL  GMCURS  (IG ,  ,  Is  ,  I3  ,  . . . ,  I„  ) 


option  (2): 

CALL  GMCURS  (IG,  Mj  ,  J,  -  ,  Jl2 ,  J13 

J23  , . . .  J3  p  i  «  •  •  j  Mji  j  Jn  •  •  •  •  >  Jn i  ) 

2  9  « 


where 


*  •  J'.  l .  *  Mj  ,  Jj  i  ,  Js  2  > 


IG  is  the  address  containing  the  byte  number  of  the  image 
stored  in  the  360  buffer  at  which  the  cursor  is  to  be  inserted.  "IG"  >  0 
Ii  through  I0  or  M1  through  JB,  specify  the  image  in  which 
the  cursor  is  to  be  inserted.  The  manner  of  image  specification  is  iden¬ 
tical  with  that  subroutine  GERASE.  See  section  III.  C.  11. 

Subroutine  GMCURS  enters  the  byte  number  "IG",  into  the  map 
associated  with,  the  specified  image.  When  GDISPL  is  called,  the 

The  cursor  will  probable  be  more  widely  used  in  conjun  tion  with  either 
the  GPTEXT  or  GPRINT  subs  .m tines  than  with  the  other  buffer  generation 
rubrout i nos . 
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channel  program  is  prepared  in  such  a  manner  that  the  cursor  will  be 
inserted.  Although  several  images  may  be  displayed  at  one  time  on 
the  2250  only  one  of  these  may  have  a  cursor. 

As  stated  previously  (section  III.  C.  4.),  for  those 
images  not  requiring  a  cursor,  the  number  of  bytes  from  the  1st  position 
of  the  360  buffer  for  those  images  is  set  to  7FFF16  in  map. 

6.  Subroutine  GPGRID 

(Graphic  -  Place  bytes  in  360  buffer  to  generate  a  GRID) 

This  subroutine  is  .used  to  generate  the  aopropriate  2250 
mode  orders  and  data  bytes  which  when  sent  to  the  2250  will  cause  a 
grid  to  be  displayed.  The  grid  thus  generated  will  '.onform  to  the 
criteria  prescribed  by  rhc  grid  specification  routines.  See  section 
III.  D.  and  figure  2. 

Call  line: 

CALL  GPGRID 

7.  Subroutine  GPRINT 

(Graphic  -  Place  data  in  360  buffer  to  obtain  hollerith 
characters,  integer  values,  fixed  point  values  etc.  according  to 
a  format  which  is  similar  to  that  associated  with  a  FORTRAN  IV  PRINT 
statement) 

This  subroutine  is  used  to  generate  the  appropriate  2250 
mode  orders  and  data  bytes  which  when  sent  to  the  2250  will  cause 
textual  material  to  be  displayed  with  variables  according  to  a  format 
described  bv  reference  2.  The  GPRINT  subroutine-  calls  to  I0UT, 

FSCAN,  and  WITEM  which  are  described  in  reference  2. 
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Generally  the  beam  should  be  positioned  before  using  this  subroutine 
Call  line: 


CALL  GPRINT  (ITX,  FMT,  Al,  A2...AN) 


where 


F.  5.) 


ITX  has  the  same  meaning  as  in  GPTEXT  (See  section  III. 


FMT  is  the  address  of  the  first  byte  in  a  series  of  bytes 
(4  bytes  per  FOP.TRAN  word)  which  make  up  a  format  statement  describing 
the  data.  For  example  the  contents  of  FMT  may  be: 

( 1 1 Hbb JOEbSMlTH)  or 
(2HY=,3E5.3,I2) 

The  first  byte  must  contain  a  left  parenthesis.  Al  through  AN  form  a 
series  of  variable  names  (not  arrays)  which  may  be  indexed  (i.e.  A(l), 
A(I),  I  *  1,  J)).  They  specify  the  storage  addresses  of  the  items  to 
be  written  in  the  format  given  by  FMT. 

8.  Subroutine  GPLABL 

(Graphic  Place  data  in  360  buffer  to  LABeL  the  grid) 

This  subroutine  is  used  to  generate  the  2250  mode  orders 
and  data  bytes  which  when  sent  to  the  2250  will  cause  the  grid  produced 
by  GPGRID  to  be  labeled  with  appropriate  coordinates  centered  7  raster 
units  below  the  large  tick  marks  .  *i  the  X  axis  and  7  raster  units  to  the 
left  of  the  large  tick  marks  on  the  Y  axis  1.  Basic  size  characters 
are  used  in  the  labeling.  Either  E,  F,  or  I  type  formats  is  permitted 
to  be  used  for  each  of  the  axes  independ  ly. 


1  If  GPGRID  has  not  been  called  prior  to  the  GPLABL  call, 
will  still  be  generated  for  the  appropriate  position. 


the  labels 
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Call  line: 


CALL  GPLABL  (F*1TX,  FMTY) 

where 

FMTX  is  the  address  containing  the  format  to  be  used  for 
the  labels  along  the  abscissa  and  FMTY  is  the  format  to  be  used  for 
the  labels  along  the  ordinate.  Example:  In  the  location  of  FMTX 
we  may  have  (15)  or  (E7.2)  or  (F6.4).  The  first  byte  must  represent 
a  left  parenthesis.  If  FMTX  or  FMTY=0  (integer  style)  then  the  x  or  y 
axis  is  not  labeled. 

The  maximum  amount  of  space  in  raster  units  needed  for  labels  is 
as  fellows: 

(1)  to  the  left  of  the  Y-axis  -  maximum  {14  x  (the  largest 
number  of  characters  used  to  label  the  Y  axis)  +  27, 

7  x  (number  of  characters  in  the  first  label  on  the  X  axis 

+  1)} 

(2)  below  the  X  axis  -  47 

(3)  for  the  rightmost  label  on  the  X-axis  -  7  x  (number  of 
characters  in  the  label  +  1) 

(4)  above  the  grid  for  the  uppermost  label  on  the  Y-axis  -  7 
G.  Channel  Program  and  Interrupt  Handling  Subroutines 

1.  General  information 

There  are  3  subroutines  which  create  channel  programs; 

GDISPL,  GREAD,  and  GWAIT.  Closely  associated  with  these  subroutines 
are  4  others  which  are  related  to  the  hanaling  of  interrupts:  GOPEN 
GOPCP,  GINKEY,  and  GMGET. 
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?.  Subroutine  CD1SPL 


(Graphic  -  Create  channel  program  to  DISPLay images) 

This  subroutine  creates  the  channel  program  which,  when 
operated  after  a  call  to  G0PCP  will  send  to  the  2250  buffer,  data  created 
by  those  bui fer  preparation  subroutines  whose  identification  corresponds 
to  fuose  specified  as  arguments  to  GDISPL. 

This  subroutine  also  places  in  the  map,  the  first  2250 
buffer  address  into  which  the  data  corresponding  to  each  image  will 
be  placed.  It  also  places  an  impossible  2250  address  number  into 
the  map  for  those  images  which  will  not  be  displayed.  If  the  image 
size  is  zero1  no  (  .itry  will  be  made  in  the  channel  program  for  that 
image. 

Call  line: 

option  1: 

CALL  GDISPL  (I,  .  Ia  ,  I3  ,...In) 

option  2: 

CALL  GDISPL  (Mi  ,  Jj ! ,  J^a ,  J13  .. .  Jia  ,  Ms ,  J?:  ,  J22 , 

1 

J53  ,  ...  ,  . .  .Mj  ,  Jr  ,  Jn  a  .  . .  Jn|  n  ) 

In  option  1  and  option  2,  the  arguments  I;  through  In  or  M ,  through 
Jtl  n  are  used  uc  identity  the  images  for  which  the  channel  program 
when  operated  will  send  the  associated  data  from  the  360  buffer  area  to 
the  2250  buffer.  The  identification  is  achieved  in  the  same  manner  as 
described  in  f, ERASE .  Sec  section  III.  C.  11.  A  call  to  OOPCP  will 
general Iv  follow  the  call  to  GDISPL. 

This  occurs  when  all  points  are  out  of  range. 


3.  Subroutine  GREAD 


(Graphic  -  creates  channel  program  to  READ  an  image 
from  the  2230  buffer). 

This  subroutine  creates  the  channel  program  which  when 
operated  after  a  call  to  GOPCP  will  send  the  mode  orders  and  data  bytes 
associated  with  a  specified  identification  from  the  2250  buffer  where 
it  had  been  previously  stored  through  use  of  the  subroutine  GDISPL  to 
a  specified  area  in  the  360  storage.  Since  manual  intervention  via  the 
alphameric  keyboard  may  have  altered  the  2250  buffer,  the  GREAD  sub¬ 
routine  enables  the  program  to  obtain  the  new  information  contained  in 
the  2250  buffer.  Only  one  map  entry  may  be  read  at  one  time.  There¬ 
fore  only  the  first  entry  in  the  map  which  has  the  appropriate  identi¬ 
fication  is  read  . 

Ca ! 1  line: 

option  1 : 

CALL  GREAD  (AREA,  I;) 

option  2: 

CALL  GREAD  (AREA,  M:  ,  J„  ,  JiZ  ,  J:3  ,  J14  ) 

In  option  1  and  option  2,  AREA  specifies  the  address  of  the  first  location 
of  an  array  of  the  360  into  which  the  portion  of  the  2250  buffer  associ¬ 
ated  with  image  specified  by  or  M1  through  J14 is  to  be  read.  Only 
1  map  entry  may  be  referenced.  The  identification  is  achieved  in  the 
same  manner  as  described  in  GERASE.  See  section  III.  C.  11.  A  call  to 
GOPCP  will  genera  1 1 v  lcllow  the  call  to  GREAD. 
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4.  Subroutine  GOPCP 


(Graphic  -  Operate  Channel  Program) 

This  subroutine  is  used  to  start  the  operation  of  any  channel 

program  created  by  subroutine  GDISPL,  GREAD,  or  GWAIT  and  to  wait  until 

that  channel  program  has  been  completed.  Subroutine  GOPCP  also  resets 

to  zero  the  attention,  unit  check  and  device  end  channel  end  interrupt 

indicators  found  in  the  last  3  bits  of  GINK  in  the  communications 

region.  (See  GWAIT  for  uses  made  of  these  indicators.)  Prior  to  begin- 

« 

ning  execution  of  the  channel  program,  however,  a  check  is  made  (by 
insp acting  the  Graphic  Control  Byte)  to  determine  whether  an  interrupt 
has  occurred  which  has  not  yet  been  processed.  If  the  GCB  indicates  that 
an  interrupt  has  occurred,  the  channel  program  is  not  executed;  instead, 
control  is  returned  to  the  calling  program  to  allow  the  interrupt  to  be 
processed. 

Call  line: 

CALL  GOPCP 

b.  Subroutines  GOPEN  and  GCLOS 

GOPEN  (Graphic  -  Initialize  Date  Control  Blocks) 

This  subroutine  is  used  tc  initialize  the  data  control  blocks 
(GDCB1  and  GDCB2)  so  that  their  associated  data  sets  can  be  processed. 
(Control  blocks  are  defined  in  Appendix  E) 

Some  of  the  procedures  performed  by  this  subroutine  are: 

(a)  Construction  of  the  data  extent  block  (DEB). 

(b)  Transfer  of  information  from  DD  statements  and  data  set 
labels  to  the  data  control  blocks. 
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c.  Verification  or  creation  of  standard  labels 

d.  Loading  of  programmer-written  appendage  routines 
(See  Appendix  D) 

Call  line: 

CALL  GOPEN 

GCLOS  (Graphic  -  Restore  Data  Control  Blocks) 

This  routine  restores  the  data  control  blocks  (GDCB1  and  GDCB2)  so 
that  processing  of  their  associated  data  sets  can  be  terminated.  Some 
of  the  procedures  performed  by  the  program  are: 

a.  Release  of  the  data  extent  block  (DEB). 

b.  Removal  of  information  transferred  to  the  data  control 
block  fields  when  OPEN  was  executed. 

c.  Verification  or  creation  of  Standard  labels. 

d.  Release  of  programmer-written  appendages. 

Call  line: 

CALL  GCLOS 

6.  Subroutine  GWAIT 

(Graphic  WAIT  for  interrupts) 

The  GWAIT  subroutine  can  perform  the  following  functions: 

a.  Wait  for  an  attention  interrupt,  and  make  a  channel 
program  which  can  obtain  more  information  about  the  nature  of  the  interrupt 
(i.e.  read  manual  inputs  or  obtain  sense  bytes). 

b.  Set  the  appropriate  bits  in  GINK  for  a  light  pen  or  key¬ 
board  interrupt,  after  determining  the  nature  of  the  interrupt. 
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Call  lines: 


Option  1: 

CALL  GWAIT(O) 

This  option  causes  the  program  to  look  for  an  interrupt 
in  two  steps:  (1)  The  program  checks  the  attention  bit  of  GINK  in  the 
communication  region.  If  this  bit  is  set  to  1,  the  program  goes  on  to 
process  this  interrupt.  (2)  If  the  attention  bit  in  GINK  is  set  to  0, 
then  the  program  cycles,  checking  the  graphic  control  byte  (GCB). 
the  GCB  is  set  to  1,  the  program  stops  cycling  and  goes  on  to  process 
this  interrupt. 

Upon  finding  the  interrupt  by  these  2  steps,  the  program 
stores  the  "u",  "c",  and  "a"  bits  into  GINK+6  bytes,  resets  the  attention 
indicator  "a"  to  zero,  and  creates  a  channel  program  which  may  be  operated 
by  a  call  to  GOPCP.  If  this  channel  program  is  operated,  it  will  either 
read  the  manual  input  bytes  or  the  sense  bytes,  depending  respectively  on 
whether  the  unit  check  indicator  is  set  to  0  or  1  in  GINK  (bit  "u"  of 
GINK).  These  manual  input  bytes  or  sense  bytes  are  read  into  GMGE  of  the 
communications  region. 

Option  2: 

CALL  GWAIT(l) 

If  the  programmer  wishes  to  interpret  the  bytes  stored  in 
GMGE  of  the  communications  region  by  the  calls  to  GWAIT(O)  and  GOPCP, 
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he  should  follow  those  calls  with  CALL  GWAIT(l). 

Subroutine  GWAIT(l)  waits  for  the  completion  of  the  channel 
program  as  in  the  other  2  options.  Then  it  will  store  right  adjusted 
into  the  first  byte  of  GINK  of  the  communications  region  the  following 
code  in  binary: 

0  if  light  pen  caused  the  interrupt* 

1-32  if  the  function  key  corresponding  to  1-32  caused 
the  interrupt, 

33  if  the  end  key  on  the  alphameric  keyboard  caused 
the  interrupt, 

34  if  the  cancel  key  on  the  alphameric  keyboard 
caused  the  interrupt. 

In  addition  if  the  function  keyboard  is  depressed,  the 
eight  bit  binary  overlay  code  is  placed  into  the  second  L,te  of 
GINK.  Otherwise  a  zero  will  be  placed  in  the  second  byte.  The  last 
2  bytes  of  GINK  will  remain  unchanged. 

The  three  values  in  GIbK  may  then  be  obtained  from  the 
communications  region  for  use  by  the  F0RTRAN  programmer  by  a  call  to 
GINKEY. 

7.  Subroutine  GINKEY 

(Graphic  INterrupt  KEV) 

Tliis  subroutine  is  used  to  read  into  or  out  of  GINK  of 
the  communications  region. 
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Call  line: 


CALL  GINKEY  (IKi ,  IKc ,  IKg ,  IK* ) 


where 


IKi 


(  XKe 


when  "IKi"=0  J 


IK3 


IK* 


/  IKa 


is  the  address  containing  a  control  equal  to 
0  or  1  for  reading  out:  of  or  reading  into  GINK, 
is  the  address  in  which  the  first  byte  of  GINK 
will  be  placed  as  an  integer  right  adjusted, 

is  the  address  in  which  the  second  byte  of  GINK 
will  be  placed  as  an  integer  right  adjusted, 
is  the  address  in  which  the  third  and  fourth 
bytes  of  GINK  will  be  placed  as  an  integer  right 
adjusted  the  resulting  contents  of  IK*  £  7. 
is  the  address  containing  the  value  to  be  stored 
in  the  first  byte  of  GINK. 


when  "IKi"=l  I 

11^5  is  the  address  containing  the  value  to  be  stored 
in  the  second  byte  of  GINK. 

IK*  is  the  address  containing  the  value  to  be  stored 
in  the  third  and  fourth  bytes  of  GINK.  "IK*"  5  7. 
"IKb"  and  "IK-"  will  represent  respectively  the  key  0  to  34  and  the 
overlay  as  described  in  option  3  of  section  III.  G.  6.  "IK*"  is  a  num¬ 

ber  0  to  7  representing  the  binary  interrupt  indicator  bits  u,  c,  and  a 
described  in  section  III.  G.  5. 

In  addition  to  the  above,  when  "IKi=0  the  program  checks  the  graphic 
control  byte  (GCB) :  If  the  GCB=1,  the  attention  bit  in  GINK  in  the 
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communications  region  is  set  to  1  and  the  GCB  is  set  equal  to  zero. 

If  the  GCB=0,  the  program  proceeds  normally. 

8.  Subroutine  GMGET 

(Graphic  -  GET  name  corresponding  to  light  pen  interrupt 
from  map) 

This  subroutine  obtains  the  4  level  nane  of  the  image  which 
has  been  touched  by  the  light  pen.  The  buffer  address  at  the  t.’  ;  ->f 
tb<i  interrupt  must  be  stored  in  GMGE  of  the  communications  region.  This 
storage  takas  place  by  operation  the  channel  program  made  by  GWAIT  (0) 
if  a  light  pen  interrupt  has  occurred  (See  section  III.  G.  6.).  The 
GMGET  subroutine  determines  for  which  image  this  buffer  address  lies 
between  the  1st  location  of  the  image  orders  in  the  2250  and  the  last 
location  of  these  image  orders.  The  1st  location  is  found  in  the  map 
and  is  therefore  associated  with  the  4  level  name  of  the  image.  The 
last  location  can  be  computed  by  the  sum  of  the  1st  location  and  the 
number  of  consecutive  bytes  occupied  by  the  image.  Subroutine  GMGET 
then  places  each  of  the  4  levels  of  identification  for  that  image  into 
specified  addresses. 

Call  lines: 

CALL  GMGET  (N) 

where 


N  is  the  first  address  of  an  array  of  5  consecutive  addresses 
into  which  the  1st,  2nd,  3rd,  and  4th  level  names  and  the  tag  of  P  or  1 
associated  with  She  image  are  consecutively  placed.  (See  section  III.  H. 
for  explanation  of  the  tag.)  If  the  subroutine  is  unable  to  find 
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any  of  >ie  entries  in  the  map  for  which  the  buffer  address  touched  with 
the  light  pen  does  not  lie  between  the  first  and  last  location  of  the 
image  orders  in  the  2250,  a  value  of  7FF."  }  will  be  placed  in  N  «nd  the 
other  4  locations  will  then  remain  unchanged.  Thia  would  ordinarily 
represent  an  error  in  which  the  map  has  been  destroyed  although  it 
might  possibly  occur  by  placing  information  into  the  2250  buffer  with¬ 
out  employing  these  subroutines. 

H.  Image  Tagging 

1.  General  information 

There  are  2  subroutines  GMPTAG  and  QrtGTAG  which  place 
into  or  obtain  from  the  map  a  tag  bit  associated  with  an  image.  A  tag 
bit  of  0  or  1  may  be  entered  into  the  map  entry  of  any  image  or  group 
of  images  as  desired  by  subroutine  GMPTAG.  The  tag  bit  may  be  obtained 
from  the  map  for  any  image  as  specified  by  subroutine  GMGTAG.  This 
tag  bit  of  0  or  1  is  obtained  also  from  the  map  entry  of  the  image  touch¬ 
ed  by  the  light  pen  when  the  following  subroutines  are  employed: 

CALL  GWAIT  (0) 

CALL  GOPCP 
CALL  GWAIT  (1) 

CALL  GMGET  (Hj 

2.  Subroutine  GMPTAG 
(Graphic  -  Put  TAG  in  Map) 

This  subroutine  places  the  tag  0  or  1  into  the  map 
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corresponding  to  any  image  or  images  specified. 

Call  line: 

option  1: 

CALL  GMPTAG  (ITAG,  Ij  ^  •*£  ■»  X3  >  •  •  •  ^  ) 
option  2: 

CALL  GMPTAG  (ITAG,  Mj  >  Jj  j  i  Jja  »  *^i3  »  •  •  •  ^1/  >  ^8  »  ^sx  » 

J 22  »  *^23  >  •  •  •  *^3^2  *  *  *  *  1  *^n2  »  **•  n  ) 

In  option  1  and  2,  ITAG  is  the  address  of  the  tag.  "ITAG"  *  0 

or  1  whichever  is  to  be  placed  into  the  map  associated  with  images 

/ 

specified  by  I«  through  \  or  Mi  through  J*:  .  The  identification  is 

achieved  in  the  same  manner  as  described  in  GERASE.  See  section  HI. 


C.  11. 

3.  Subroutine  GMGTAG 

(Graphic  -  Get  TAG  from  Map) 

This  subroutine  obtains  the  tag  0  or  1  from  the  map  area 
associated  with  a  specified  image  and  places  it  into  a  specified  variable. 
Call  line: 


option  1: 

CALL  GMGTAG  (ADD,  I: ) 
option  2: 

CALL  GMGTAG  (ADD,  M^ ,  Jji  ,  Jjj  .  Jj3  ,  J^4 ) 


where 


ADD  is  the  specified  address  into  which  the  tag  is  to  be 


placed. 

IT  or  M!  through  J14  is  the  identification  of  a  single 
image  achieved  in  the  manner  described  in  GERASE.  See  section  III. 
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C.  11. 


I.  Conversion  Routines 

1.  Subroutine  GCON’/T 
(Graphic  -  Convert  data) 

This  subroutine  converts  data  from  character  string  tc  internal 
form.  The  conversion  is  strictly  format  controlled. 

Call  line: 

CALL  GCONVT  (FKT,  ARRAY,  NBYTE,  Al,  A2,  ....  AN) 

where 

FMT  =  Format  to  be  used  in  the  conversion 
ARRAY  =  Location  of  character  string  to  be  converted 
KBYTE  =  Maximum  number  of  bytes  in  character  string 
A1,...AN  =  Location  (or  locations)  in  which  to  store  the 

converted  data.  (array  names  used  here  must  be 
subscripted.) 

2.  Subroutine  QIOIN 

This  is  a  conversion  package,  written  by  Computer  Usage 
Development  Corporation,  which  is  used  by  various  subroutines  to  convert 
data  internally.  (See  reference  (3)) 
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IV.  FUTURE  PLANS 


It  would  be  well  to  recognize  that  the  subroutines  presented 
nere  were  designed  with  a  modular  structure  to  facilitate  changes. 

As  they  stand  now,  they  are  to  be  used  experimentally  to  determine 
desirable  improvements.  In  this  present  form,  they  were  found  adequate 
in  the  case  of  one  trumped-up  problem  and  in  2  other  problems  with 
real  physical  meaning.  What  is  needed  now  is  a  trial  under  the  fire  of 
a  great  variety  of  practical  problems.  Out  of  this  fire  there  will 
arise  a  truly  tempered  tool  for  man  machine  relations  or  perhaps  there 
will  remain  merely  the  charred  ashes  of  this  report. 

But  whichever  is  the  case,  experience  will  be  gained  and  perhaps 
another  stitch  will  be  taken  in  that  pattern  of  evolution  which  eventually 
clothes  success. 

Aside  from  the  unknown  problems  which  we  hope  can  be  resolved,  there 
are  some  specific  steps  that  may  be  taken  to  make  the«e  routines  more 
available  for  use  as  follows: 

A.  Incorporate  logarithmic  and  polar  plots, 

B.  Make  these  subroutines  available  for  use  by  NWL  Disolaytran, 

C.  Make  possible  the  handling  of  random  (not  preplanned)  inter¬ 
rupts  from  different  2250  terminals  governed  by  a  single  program. 
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V.  EXAMPLES 


A.  The  following  series  of  examples  were  written  to  provide  illustra¬ 
tions  of  the  f^uing  of  the  eleven  primary  capabilities  listed  in  sec¬ 
tions  II..  B.  and  II.  C.  The  examples, coded  as  subroutines  and  named 
EX1  through  EX10,  are  in  a  1-1  correspondence  with  the  first  10 
capabilities  described  under  section  II.  B.  (The  11th  capability  is 
included  in  EX10. ) 

It  should  be  noted  here  that  these  examples  were  coded  to  be 
independent,  each  one  being  complete  in  itself.  However,  if  it 
were  desired  to  make  them  dependent,  routines  such  as  GUNIT,  GUTTFY, 

GUMAP,  etc.  (see  section  II.  B.  and  II.  C.)  would  not  need  to  be 
called  in  each  example. 

A  brief  explanation  of  each  example  will  be  given  here,  followed 
by  a  FORTRAN  listing  of  the  subroutine  examples,  a  main  calling  program 
and  sample  data. 

1.  Draw  grid  (EX1) 

This  routine  displays  a  simple  grid  on  a  portion  ot  the 
*250  screen  (from  (100,100)  to  (900,900)  in  raster  units).  The  grid 
is  set  up  with  Xmin  »  Ymin  =  0,  Xmax  *  Ymax  =  100,  and  the  origin 
at  (50,50)  in  user's  coordinates.  Tick  marks  are  placed  only  at 
the  end  points  on  the  grid  and  no  labeling  is  done.  After  displaying 
the  giid,  the  routine  waits  for  an  interrupt  from  the  light  pen  and 
continues  to  the  next  example. 
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2.  Label  grid  (EX2) 

This  routine  re-displays  the  grid  in  example  1  above,  but 
this  time  large  tick  marks  are  placed  on  the  grid  in  25-unit  intervals. 
One  small  tick  mark  is  inserted  between  each  of  the  large  ones  and 
the  labeled  grid  is  displayed  on  the  screen.  After  this  display,  the 
routine  w^its  for  an  interrupt  irom  the  light  pen  and  continues  to  the 
next  example.  The  card  which  is  read  by  this  example  places  (F4.C) 

unto  FMTX  and  FMTY.  Therefore,  the  labels  on  both  the  x  and  y  axix 
will  be  represented  by  a  maximum  of  3  digits. 

3.  Plot  points  or  symbols  and  draw  vectors  r.t  specified  grid 
coordinates. (EX3) 

This  routine  uses  part  of  the  2250  screen  (from  (50,  50)  to 
(1000,  1000)  in  raster  units)  to  plot  points  at  user's  coordinates 
(20,  20)  and  (40,  40).  The  symbol  is  plotted  at  user's  coordin¬ 
ates  (60,  60)  and  (80,  80)  and  a  vector  is  plotted  from  (20,  20)  to 
(50,  20)  in  user's  coordinates.  (Limits  on  user's  coordinates  are  the 
same  as  in  the  two  previous  examples.)  After  displaying  these,  the 
routine  waits  for  an  interrupt  from  the  light  pen  and  continues  to  the 
next  example. 

4.  Obtain  a  count  of  the  number  of  points  (or  ends  of  vectors) 
that  exceed  the  specified  grid  boundaries.  (EX4) 

This  routine,  using  the  same  limits  as  was  set  up  in  example 
3  above,  attempts  to  plot  points  at  (-10,  20)  and  (40,  40),  plot  the 
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symbol  at  (60,  110)  and  (110,  80),  and  plot  a  vector  from  (-10,  10) 
to  (100,  10).  (All  coordinates  given  in  user's  coordinates.)  The 
range  has  been  set  up  from  (0,  0)  to  (100,  100)  in  user's  coordin¬ 
ates;  therefore,  since  (40,  40)  and  (100,  10)  are  the  only  coordinates 
within  this  range,  they  are  the  only  points  displayed.  The  variable 
"IRANGE"  contains  the  total  number  of  points  out  of  range.  (IRANGE  ■  4) 
After  receiving  a  light  pen  interrupt  the  routine  proceeds  to  the  next 
example. 


5.  Position  the  light  beam  (in  raster  units)  and  display 
textual  material.  (EX5) 

This  routine  reads  in  and  displays  textual  material  (24  bvtes) 
at  coordinates  (50,  800)  in  raster  units.  After  the  display,  the  rou¬ 
tine  waits  for  an  interrupt  form  the  light  pen  and  continues  to  the 
next  example. 

6.  Position  the  light  }>eam  (in  user's  coordinates)  and  dis¬ 
play  textual  material.  (EX6) 

This  routine  reads  in  and  displays  textual  material  at 
(20,  20)  and  (20,  50)  in  user's  coordinates.  After  a  light  pen  interrupt, 
the  routine  proceeds  to  the  next  example. 

7.  Delay  computation  while  waiting  for  an  interrupt  from  the 
light  pen,  or  from  the  end  key  or  cancel  key  on  the  alphanumeric  key 
board;  then  determine  which  of  these  interrupts  took  place.  (EX7) 

This  routine  reads  in  and  displays  textual  material  at  the  coordin¬ 
ates  (5,  1000)  in  raster  units,  then  waits  for  an  interrupt.  After 
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receiving  an  interrupt,  the  variable  "12“  contains  the  information 
needed  to  determine  which  interrupt  took  place:  12  =  0  means  a  light 
pen  interrupt,  12  =  33  means  an  end  key  interrupt,  and  12  =  34  means 
a  cancel  key  interrupt.  After  printing  the  value  of  12,  the  routine 
proceeds  to  the  next  example. 

8.  Identify  that  portion  of  a  displayed  image  which  has  been 
touched  by  the  light  pen.  (EX8) 

This  routine  reads  in  and  displays  textual  material  at 
coordinates  (5,  1000)  and  (5,  500)  in  raster  units.  The  text  at 
(5,  1000)  is  named  l,  2,  3  while  the  text  at  (5,  500)  is  named  4,  5,  6 
for  identification.  After  a  light  pen  interrupt,  the  variables  "Nl, 

N2,  N3"  will  contain  1,  2,  3  or  4,  5,  6,  depending  on  which  of  the  two 
above  texts  was  touched.  The  routine  then  continues  to  the  next  example. 

9.  Tag  an  image  with  a  number  0  or  1  as  desired  and  retrieve 
the  tag.  (EX9) 

This  routine  reads  in  and  displays  textual  material  at  the 
coordinates  (5,  1000)  in  raster  units.  This  image  is  then  tagged 
with  a  1  and  the  tag  is  then  retrieved  and  placed  in  the  variable 
"ADD."  After  receiving  a  light  pen  interrupt  the  routine  continues  to 
the  next  example. 

10.  Insert  the  cursor  and  read  the  contents  of  the  2250  buffer 
into  the  system  360  memory.  (EX10) 

This  routine  reads  in  and  displays  textual  material  at 


62 


coordinates  (5,  1000)  in  raster  units.  A  cursor  is  inserted  in  the 
position  under  the  text,  allowing  the  user  to  type  in  values  at  this 
position  from  the  keyboard.  After  a  light  pen  interrupt  occurs,  the 
text  (which  is  in  the  2250  buffer)  is  read  off  the  screen  and  placed 
into  the  360  memory  in  the  variable  "W".  (Before  this  value  may  be 
used,  however,  it  must  be  converted.  (See  GCONVT,  section  III.  I.) 
After  anothe1*  light  pen  interrupt  the  program  is  terminated. 
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3035  ENO 


B.  Figures  3  through  15  contain  a  series  of  photographs1  taken 
of  a  program  used  to  demonstrate  graphic  capabilities  of  the  enclosed 
subroutines.  The  BPS  version  of  the  program  was  run  at  the  Armed  Forces 
Day  celebration  on  May  8,  1966  at  NWL  for  an  entertaining  enlightenment 
of  the  general  public  and  future  users.  It  was  executed  on  the  IBM  360/A0 
machine,  using  a  2250  console  for  the  graphic  display.2  A  brief  descrip¬ 
tion  of  the  OS  version  of  the  program  will  be  given,  followed  by  a 
FORTRAN  listing. 

For  explanatory  purposes,  the  program  will  here  be  broken  up 
into  the  following  five  parts: 

1.  Figure  3  illustrates  the  beginning  of  the  program.  The 
letters  "NWL"  appear  in  sequence  on  the  screen,  immediatel/  followed 

by  "PRESENTS".  "NWL"  is  comprised  of  vectors,  while  the  caption  "PRESENTS" 
is  merely  the  printing  of  large  size  hollerith  data  on  the  screen. 
Following  this,  figure  4  appears  briefly. 

2.  Figure  5  is  the  beginning  of  a  sequence  in  which  a  star 
continuously  expands  and  contracts.  By  touching  the  screen  with  the 
light  pen,  the  star  can  also  be  made  to  rotate  in  a  clockwise  direction. 
The  pictures  show  various  positions  and  sizes  of  the  star.  As  the  rapid 
sequence  of  pictures  appear  on  the  screen,  they  give  the  impression  of 
motion. 

1  Photos  were  taken  by  a  Kodak  Retina  Reflex  IV  camera  with  an  f  1.9 
lens  using  ASA  50  film. 

3  The  BPS  version  is  fully  described  in  Reference  (4). 
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3.  Another  "motion  picture"  depicts  a  well-known  baseball 
personality  on  his  way  to  the  opening  game  of  the  season.  He  walks 
across  the  page  with  vigor,  knowing  well  that  his  team,  with  the  aid 
of  new  computer  techniques,  at  la3t  has  a  good  chance  for  a  winning 
game.  (Due  to  minor  difficulty  in  evaluating  t'.ie  pitching  staff  the 
game  was  lost  by  102  to  0.)  Figure  10  is  a  composite  picture  illus¬ 
trating  the  displayed  image  at  various  time  intervals.  Ic  should  be 
noted  here,  however,  that  in  actuality  this  sequence  produces  an 
illusion  of  movement  which  cannot  be  illustrated  by  figure  10. 

4.  Figure  11  illustrates  the  ability  of  the  computer  to 
construct  and  alter  on  command  simple  geometric  figures.  By  use 
of  commands  at  the  top  of  the  screen,  (activating  a  command  merely 
entails  touching  it  with  the  light  pen)  up  to  80  individual  boxes  may 
be  generated,  moved  about,  expanded,  compressed,  etc.,  etc.,  resulting 
in  a  final  figure  composed  of  vertical  and  horizontal  lines.  After 
generating  a  new  box,  any  previous  box  may  be  erased  by  touching  it 
once  with  the  light  pen.  When  a  newly  generated  box  is  touched  by  the 
light  pen  all  previous  boxes  are  erased.  A  newly  generated  box  may  be 
touched  four  times  with  the  light  pen  before  the  entire  image  on  the 
screen  is  erased  and  the  program  proceeds  to  the  next  part.  (See  (5) 
below.) 

5.  When  the  box  routine  has  been  completed,  the  program 

enters  a  sequence  illustrating  the  display  of  the  conic  section  equation. 
Y  =  Ax2  +  Bxy  +  Cy2  +  Dx  +  Ey  +  F.  The  user  may  type  in  the  desired 
parameters  for  A,  B,  C,  D,  E,  and  F  in  the  space  provided  at  the  top  of 
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the  screen.  The  G  coefficient  is  a  control:  +1  means  one  curve  is 
to  be  displayed,  +2  means  two  curves  are  to  be  displayed  simultaneously, 
and  0  means  go  back  to  the  beginning  of  the  program  (Figure  3)  and 
repeat  the  whole  program.  Figure  12  shows  the  original  grid,  while 
figures  13  and  14  show  one  and  two  curves  respectively  being  displayed. 
To  activate  the  program,  the  parameters  desired  are  typed  in  and  the 
light  pen  must  be  touched  to  the  screen. 
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AN  ALL  STAR 
PERFORMANCE 


Figure  4 
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Figure  12 
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FLOW  CHARTS 
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i  Start 
\GUTYPE, 


^  r  ^  r  > 

Start  ]  (  Start  ]  (  Start 

yGUSIZE/  \sGUNAIffiy  \^GULIMy 


f  > 

Start 


Set  register  2 
to  GUSI 


Store  registers 
Set  register  2 
to  GULI 


Store  registers 
Set  register  2 
to  GUPL 


2— ►register  8 


GUTYP1 


GUTYP2 


lir.r, 


tvr.trznr- ri 


ress  ot  argumen 

register  1  register  4 


Value  of  argument  “•  register  5 
register  8  2 


19 


Store  registers 
Set  register  2 
to  GUGR 


4-^register  8 


Register  8  -  register  7 


GUTTP3 


Store  the  value  o£  argumen 
given  by  register  5  into 
a  half  word  indicated  by 
register  2 


GUTYP4 


+  register 
register  2 


GUTTPE5 


^  GUTYP7 


store  the  value  of  argument 
given  by  register  5  into 
a  full  nord  indicated  by 
register  2 

Register  7-1  register  7 
Register  7  »  0 


Register  2  +  register  8 
-*  register  2 
2  "*  register  3 


estore  registers 


Return 
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GPPOSN,  GPBEMK 
GPDATA,  GPTEXT 
GSCAIE,  GSTMAP 


GPPOSN 


GPBEAM 


Store  registers 
0  -  register  8 


Store  registers 
1  -  register  8 
Is  linear  plotting  usedl 


f  GPP 100 

iill  current  address  +>  exceed 
lest  available  address  for 
360  buffer 


Error 
#  32 


Non  linear 
Plotting 


|  CPP105 

Store  the  1  byte  order  cofi 
to  enter  the  graphic  node 
(Absolute  point  plotting) 


JGPP103 


Store  1st  argument  (x  coord; 

-  TEMPI 

Store  2nd  argument  (y  coord) ! 

-  1WP2 

0  -  TEMP  3 _ __J 


Is  register  8  $ 

I  -  0  fTT 


Form  the  graphic  mode 
orders  to  position 
che  beam  according 
to  the  1st  and  2nd 
arguments  and  store 
into  360  buffer 
6  -  TSfPl 


rnmtm 

#  31 


360  buffer  is 
too  small 


Form  graphic  s»de 
orders  to  posit¬ 
ion  bean  accord- 
in*  to  results  I 
from  GSCAIE  end 
store  into  360 
buffer 
6  -  TEMPI 


Save  registers  1,  13,  14,  15 
Set  register  1  to  address 
containing  the  address  of 
TZMP1 

Set  13  to  GIEG 

Set  IS  to  GSCAIE _ 


Call  i 
GSCAIE. 


_ T  GP8E10 

| Restore  registers  1,  13,  14,  15 


_ I _ CP£j2Q_ 

Save  registers  1,  13,  14,  IS 
Set  register  1  to  address 
containing  the  address  of 
TEMPI 

Set  register  13  to  GREG 
Set  register  15  to  GSTMAP 


Call 

GSMAP 


Restore  registers! 
1,  13,  14,  15  f 


Return 


CP.POSN,  GPBEAM 
GPDATA,  GPXEXT 
GSCALE,  CSXMAP  continued 


GSCAL1 


Store  registers 

Set  register  2  to  the  address  of  the  argument  array 
Set  register  5  to  GUSI 
Set  register  7  to  GULI 
0  —  out  of  range  control 

By  pass  control  »  0 _ 


GSCAL5 


ICwnpute: 


IU2-IU1  an(j  1V2-I\  1  as  floating  pt.  numbers 
U2-U1  '  V2-T1 

-*  4th  and  5th  word  of  the  argument  array 
where  IU1,  IV1,  1U2,  1V2  are  in  the  GUSI  array 
Ul,  VI,  U2,  V2  are  in  the  GULI  array 


GSOL2Q 


Is  1st  argument  (x)  >  U2 

muzz 


Is  2nd. argument  (y)  >  V2 

„ Z 


Compute  (X~lil)  (IU2-IU1)  and  (Y-Vl)  (IV2.IV1) 
(G2-U1)  (V2-V1) 

I  Are  either  of  these  terms  <  0 


Yes 


No 


Compute 

I „  -  IU1 

( (IU2-IUJ.)  (X-Ui) 

U2-U1 

1,  -  IV1 

(  (IV2-IV1) (Y-Vl) 

V2-VI 

Pack  I, 

and  I,  into  6th  word  of  argument 

GSCA40 


[1  -*  out  of 
{range  control 


GSCA25 


Restore  registers 
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Store  register* 

Set  register  2  to  GUBU 

Set  register  3  to  C 

Set  register  7  to  GUMA 

Set  register  4  to  start  of  nap 

|  rack  the  4  levels  of  identification  indicated 
by  CHINA  —  register  5 
No.  of  map  entries  —  register  6 
Set  register  t>  to  valu 


GPPOSN,  CP  BEAM 
GPDATA,  GPTEXT 
GSCALE,  G 3 IMAP  continued 


Store  registers 

Set  register  2  to  GUBU  of  coamwnieation  region 
Set  register  3  to  GTOi  of  cociaunication  region 
0  —  order  control:  TQ1P10 
0  -  plot  counter:  TEMP11 

0  -  number  of  bytes  stored  in  36tJ  vffer:  TQ1P18 

0  —  bypass  control  for  GSCALE:  TfiWi 3 

Address  of  ISYM  -  TEMP14 

SP  —  TQ1P15:  number  of  points 

IS  —  TQ1P16:  symbol  size 

IK  "*  TQ1P17:  option  number 

Is  IK  §  2 


GPDAT5 

Address  of  2nd  argument!  lvalue  indicated  by 
"*  T01P12  I  I  2nd  argument 

-  TEMP12 


Address  of  4th  argument 
-  TEMP  IT 


GPDAT6 


GPDAT8 


iM-oWrl 


Value  indicated  by  4th 
argument  -  TIM?  13 


Ifi 


Humber  of  bytes  store  In  36* 
buffer 
"  TEMPI 


TEMPI 2  -  TEMPI 


itmi 


GPQA1 


Value  indicated  by 
TD1P13  -  TEMP2 


GPDA17 


2 


Is  linear  plotting  use 
_  Yesi  GPDA25 


save  registers  1,  13,  14,  15 
Set  register  1  to  address 
containing  the  address 
o»  TEMPI 

Set  register  13  to  GREG 
Set  register  15  to  CSCAI.F. 


GPBEA3 
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Currt',.r  location  in  buffer  *■  number  oi  bytes  store 
5  last  location  available  for  360  buffer 


GPPOSN,  GPBEAM 
GPDATA,  GPTEXT 
GSCALE,  GSTMAP  continued 


GPD100 


T 


-JJECJiLL 

buffer 


Store  4  bytes  in  360 
to  position  beam 
Number  of  bytes  stored  4  -• 
number  of  bytes  stored 
Is  the  symbol  address  even  or  odd | 

Even 


GPD106 


Obtain  value  of  symbol 
from  the  left  most  byte 
of  the  symbol  address 


GPD108 


Obtain  value  of  symbol 
from  the  second  byte 
of  the  previous  even 
symbol  address 


Is  value  of  synhbol  > 

I 


JGPD1G7 


GPD109 


Current  location  in  buffer  +  number  of  bytes  store  +  3 
^  last  location  available  for  360  buffer 


GPD11C 


Size  of  character* 


Ismail 


small 


large 


GPDII2 


Generate  graphic  order  for 
character  code  for  small  letter 


6 


GPD115 


Generate  graphic  order  foi 
character  code  for  large 
letter 


GPD120 


Store  character  followed  by  null  character 
Number  of  bytes  stored  +  4 
number  of  bytes  stored 
4  —  order  control 


6 
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GPPOSN ,  GP3EAM 
GPDATA,  GPTEXT 
GSCALE,  GSTMAP  continued 


GPD200 


Plot  counter  +  1  -  plot  counter 
Address  of  symbol  +  valuerof  7th  argument  (DISYM) 
address  of  byntbol 


is 


<  2 


Is  IK  ~  1 


=  ? 


-  0 


■  ‘  1  1 

4(value  of  increment  given  by  3rd 
argument)  +  address  given  by  TEMPI 2 

-  iaipi2 

_ 

GPD203 


[A (value  of  increment  givenj 
by  3rd  argument)*  address] 
given  by  TEMP12  -  TEMP  12 


GPD205 

(Value  of  increment 
given  bjr  3rd  argument)! 
+  value  given  by 
TEMPI 2  -  TEMP 12 

HU - 


.mm. 


4 (Value  of  increment  given 
by  5th  argument)  +  address 
given  by  TEMP13  -  TEMP13 


GPD20B 


(Value  of  increment 
given  by  3rd  argu¬ 
ment)  +  value 
given  by  TEMPI  2 
-  TEMP12 


PGPD208 


(Value  of  increment  given 
by  5th  argument)  +  value 
given  by  TEMPI 3  -  TEMPI 3 
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GPPOSN,  GrBEAM 
GPDATA,  GPTEXT 
GSCALE,  GSTMAP  continued 


GPTEX1 


Store  registers 

Set  register  1  to  GUBU 

Current  address  in  which  to  start  storing 
output  in  360  buffer  -  register  3 
No.  of  bytes  to  be  stored  as  given  by  argument  2  — 
register  5 

Is  register  5  odd  or  even 
"  £verJ  Oddi 


0  —  register  4  I 
- 


2  +  register  5  +  register  4  -•  TQiPl 
register  5  -  register  4  -  register  5| 

T 


Will  current  address  +  TEMPI  -1  exceed  last  available 
position  of  36G  buffer 

No 

_ GPTF.1  S _ _ 

Yes 

■ 

Make  up  character  mode  order 
with  respect  to  3rd  argument  and 
store  into  2  bytes  indicated  by 
register  3 

Address  of  text  given  by  argument  2  *♦ 
register  6 

0  **  register  7 

c 

1 

- - 1 _ fi£XE2Q_ 

J Register  3  +  2  -  register  3 


I 


|  Register  7  >  register  5 


JSBTEZ5. 


regis  ter  4  >  (Q- 


>  0 


Store  next  2  bytes  indicated  by 
register  6  “  2  bytes  indicated 
oy  register  3 

Register  6  +  2  -  register  6 
Register  7  +  2  -  register  7 


Store  next  byte  indicated 
by  register  6  and  a  blank 
—  2  bytes  indicated  by 
register  3 


Assignment  of  temporary  storage  for  GSCALE 

TEMPI  :  GTOf  +  0  bytes  :  X  floating  point  s 

TEMP2  :  GTQ4  +  4  bytes  :  Y  floating  point  >  INPUT 

TEMP3  :  GTHI  +  8  bytes  :  control  to  bypass  ** 

TEMP4  :  GT&l  +  12  bytes  :  — PS— ’LF.l—  floating  point 

Ug  -U^ 

TEMP5  :  GTEM  +  16  bytes  :  Uz-JV.? -  floating  point 

V2 -V: 

TEMP6  :  GTEM  +  20  bytes  :  I„  &  Iy  combined 

TEMP7  :  GTEM  +  24  bytes  :  Out  of  range  control 

TEMP8  :  GTEM  +  28  bytes  :  IUg-IUj;  I,  unnormalized  F.  P. 

TEMP9  :  GTEM  +  32  bytes  :  IVa-Il^;  Iy  unnormalized  F.P. 

Assignment  of  temporary  storage  for  GPDATA  in  addition  to  GSCALE 
TEMP10  :  GTQ1  +  36  bytes  :  order  control 

TEMP11  :  GTDi  +  40  bytes  :  plot  counter 

TEMP12  :  GTEM  +  44  bytes  :  address  R  value  R  address  R  value  R 

TEMPO  :  GTEM  +  48  bytes  :  address  S  address  S  value  S  value  S 

TEMP14  :  GTEM  +  52  bytes  :  address  ISYM 

TIMP15  :  GTEM  +  56  bytes  :  value  NP 

TEMP16  :  GTEM  +■  60  bytes  :  value  IS 

TEMP17  :  GTEM  +  64  bytes  :  value  IK 

TQiP18  :  GTQ4  •+■  68  bytes  :  number  of  bytes  stored 

TIMP19  :  GTEM  +  72  bytes  :  vector  control 
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TEMP 20 
TEMP21 
TEMP22 
TEMP23 
TEMP24 
TEMP25 
‘I  ~MP26 
TEMP2/ 
TEMP28 


GTEM  +  76  bytes 

previous  I, 

GTEM  +  80  bytes 

previous  Iy 

GTQ1  +  84  bytes 

Ix  old  floating  point 

GTEM  +  88  bytes 

ly  old  floating  point 

GTEM  +  92  bytes 

I*  new  floating  point 

GUM  +  96  bytes 

Iy  new  floating  point 

GTEM  +100  bytes 

| I,  new  -Ix  old  ]  floating  point 

GTEM  +104- bytes 

P 

GTEM  +108  bytes 

intermediate  I,  or  Iy 
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Return 


r  > 

I  GPGRID  I 


Store  registers 
Set  register  2  to  GUBU 
Set  register  3  to  GUSI 
Set  register  4  to  GULI 
Set  register  5  to  GTEM 
Is  GUTY  =  1 


IU1  -  20  c  0 


IV1  -  0^0 


Set  register  6  to  GUGR  |  Yes 
Is  either  DX  or  DY  ^  0  I 


_ I _ GPGR12 

0  —  number  of  bytes  stored 
Is  either  coordinate  of  origin 
out  of  range 


Eiror 

41 


No  provision 
for  non-linear 
plotting 


Error 

42 


Not  enough  raster 
units  available 
for  tick  marks 


Put  coordinates  of 
origin  —  TEMP11  &  12 


Put  coordinates  of 
U1  &  VI  -  TEMP 11  &  12 


f  GPGR2Q _ 

Generate  vectors  thru 
origin:  TEMP11  &  12 
Save  I*  origin  1;/  origin 


Generate  vectors  thru 
IUi,  IV1. 

Compute  — 

NX+1 

DV 

Compute  TJY+I 


3' 


% 
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r .  > 

•s 

V  J 


Counter  1  >  2 

i'  2 


IG  (inGUGR)  =  0 


I IG  (in  GUGR)  =  0 


GPGR66 


IG  =  2 


GPGR73 


Compute  vector 

from  d* ,IV1-:C) 
to  (X,  ,  IV2) 


vtw,*  i  r 

%  origin  -  IV1  |  -  I  - GffiUZA 

.  Compute  vector  from 

t  ■  (IUl  -  20,  i„) 

* _ —  GPGR69  to  (IU2. 

Compute  vector  I  '  ■ 

fromd,  Iy  origin  -  A]  fc^ 

to  (I*  •  Iy  origin  +  A)  (J 


k  origin  =  IU!U 


C  Store  in  ^ 
buffer  ^ 

IGPG70 

Compute  vector 
from  (2„  ,  i vi  -  2A) 
to  (I,  ,  IV1) 


♦  GPGR78 
Store  in 
buffer  ) 


_ t  GPGR76 

Compute  vector  from 
dx  origin  -  A ) , J  ) 
to( d,  origin  +  A), 

I,) 


Store  in 
buffer 


Compute  vector 
from  (IU1  -  2A,  Iv  ) 
to  (IU1,  Iv) 
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Store  in 
buffer 


GPGRID  continued 


Assignment  oi  temporary  storage  for  GPGRID  in  addition  to  GSCALE 


TEMP  10 

GTEM 

+  36 

bytes 

TEMPI  1 

GTEM 

+  40 

bytes 

TEMP 12 

GTEM 

+  44 

bytes 

TEMP 13 

GTEM 

+  48 

bytes 

TEMP 14 

GTEM 

+  32 

bytes 

TEMPI  5 

GTEM 

+  56 

bytes 

TEMP16 

GTEM 

+  60 

bytes 

TEMPI  7 

GTEM 

+  64 

bytes 

TEMP 18 

GTEM 

+  68 

bytes 

TEMP 19 

GTEM 

+  72 

bytes 

TEMP20 

GTEM 

+  76 

bytes 

TEMP21 

GTEM 

+  80 

bytes 

TEMP22 

GTEM 

+  84 

bytes 

TEMP23 

GTEM 

+  88 

bytes 

TEMP24 

GTEM 

+  92 

bytes 

TEMP23 

GTEM 

+  96 

'.>•  tes 

TEMP2G 

GTEM 

+100 

bytes 

TEMP27 

GTEM 

+104 

bvtes 

number  of  bytes  stored 

x  coordinate  of  origin  unnormalized  F.P. 
y  coordinate  of  origin  unnormalized  F.  P. 
x  and  y  coordinates  of  vecotr  to  be  plotted. 
1st  point 

x  and  y  coordinate  of  vector  to  be  plotted. 
2nd  point 

address  return  from  vector  generation 

NX+1;  . .  floating  point 

NX+1 

NY+1;  _ 2X —  floating  point 

NY+1 

counter  1  for  section  of  graph;  counter  2 

count  small  ticks 

I,  origin  &  Iy  origin 

multiplier  for  spacing  of  large  ticks. 

Xr 

Yr 

X  increment  for  large  ticks 

Y  increment  for  large  ticks 
X  increment  for  samll  ticks 

Y  increment  for  small  ticks 

Number  of  intermediate  tick  marks  &  A 
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t  GFRIKT 
Store  registers 
Set  register  2  to  GTQi 
Set  register  3  ti  GUBU 


Set  register  4  to  A(FMT) 
Compute  amount  of  360  buffer 
storage  left  -  size 
Size  -i  2  -»  size 
Size  5*  0 


»«»(•£] 


Is  size  even 


!  2A4  (ITX)  “•  current  position  of 

buffer  (CPB) 

2  “•  number  of  bytes 

A (FMT)  -  ART1  of  IOUT: 

TEMPI 

A(CPB+2  — ARG2  of  IOUT: 

TQ1P2 

SIZE  -  ARG3  of  IOUT: 

TEMP  3 

|  Was  there  an  error  in 

IOUT 

Is  FMT  last  argument 


Set  register  5  to  C 
Set  register  6  t ^  0 


6 
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GPRI28 


rror 

51  J 


360  buffer 
too  small 


GPRINT  continued 


r  > 

GPLABL  \ 


ore  registers 
Set  register  2  to  GUBU 
Set  register  3  to  GTEM 
Set  register  4  to  CULT 
Set  register  5  to  GUGR 
Set  register  6  to  GUSI 
0  -*  if  of  bytes  stored 
Is  origin  out  of  range 


,'BU 

[’EM 


UO  -  TEMP  11 


_ CPLA05 

U1  -  TEMPI  1  i 


r  \ 


1st  argument  FMTX  >  Of 


TEMP25  x  axixl 


j 2nd  argument:  FMTYjj 


ore  YJ4  -  TQ1P25 

y  axis 


Arguments 
incorrect 
they  should 
not  both  be 


_ GPLAI5 

0  -  return  control  from  8  routine:  TEMP22 

Min  coord  of  x  or  y  axis  depending  on  TEMP  2  5  -  T!MP2f> 


Set  arguments  for  XOUT  subroutine 
Register  11  set  to  TEMPORARY  STORAGE 
Address  of  x  or  y  FORMAT  -  TEMP27:  arg  1 
Address  of  TEMP14:  Buffer  -  TB1P28:  arg  2 
YaPue  =  20  -  TEMP29:  arg  3 

Was  there  an  error  in  TOUT 


Call  I OUT  (uses  arguments  in  TEMP27 ,  28,  29,  30) 
Call  FSCAN 

Call  WITEM  (uses  argument  in  TEMP26) 


LPLA20 


TEMP22 


_ GPLA22 _ 

1  -  TEMP22 | 
Max  coord  of  x  or  y  axis  depending  on  TJMP25  -  TEMP26 
Store  #  of  significant  characters  1  rom  register  9’ 

-  TEMPI  3 


I 


GPL'.BL  continual! 


GPLA30 


Compute  max.  number  of  bytes 
used  b\  anv  coordinate  on  x 
rr  v  axis  as  desired  —  T1MP13 
6  for  x  or  \  axis  —  TEMP10 
Is  TEMP25:  axis  control  >  0 


IU1  -  (TEMPI  3)  •  7  >  0 


KPI-43B 


■H 

■— 

1  1U2  +  (TEM?13)  •  7  ..  1023L^-i _ 

■RE 

CTEKP13)  •  14  -  TEMPI  3 

|  IU1  -  (TEMP13)  •  14-  37  ^  0 


Labels  lie 
aff  the  screen 


0- 


\ 

_ j 

0  “  test  on  overlap  control 

1  ~  n_ 

— J  n  +  1  -*  n 


GPLA40 


TJMPll  -n  -  TEMP10  -  TEMP26 
TIMF26  i'min  coord  for  x  or  y  axis 
-as.degmd,,,,, _ 


0- 


GPLA42 


TEMP26  +  TEMP10  -  TEMP26 
■-]  TEMP26  >  max  coord  for  x  or  y  axis 
as  desired _ 

~  r 


TEMP25 


20  -  TEMP13 


3 


-m© 


FMTY 


© 


GPLA44 


*  of  bvtes  stored 
-  TEMPI 

Store  registers  1,  13,  14,  15 
Set  register  1  to  address  of 
TEMPI 

Set  reRister  13  to  GREG 
Set  register  15  to  GS1MAP 


j  Restore  registers}- 
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GPLABL  continued 
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GPLABL  continued 


FIOBEGIN  “  Register  7 
FIOCURNT  -  Register  8 
Register  8  -  register  7  -  N 


T  > 

S  >  20  - m- 

- f  Error  ^ 

- J  =  < 

[inJ 

Format  is  incorrect 


_ | _ GPAL82 

A(GTQi  +  52)  +  N  —  register  8 
'FF*  -  Address  in  register  fi 


Set  register  8  to  A(TEMP14) 


.Get  next  or  first  half  word 


Are  both  bytes  blank  nr 


1 

Ves 

N-2 

Add 

"  N 

2  to  register  8 

l w  >  °i 

>'  s 


Is  left  most  byte  a  blank 


N-l  -  N 


ts  right  most  byte  'FF 


GPLA87 

Is  left  I  Yes 


N  =  the  number  oi 
significant  characters 


GPLA20 
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fl 


1 


f 


GPLABL  continued 


_ £PLA90 

Obtain  text  u  store  ] 
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Assignment  of  temporary  storage  for  GPLABL  in  addtion  to  G3CALE 


TEMP 

10 

GTEM 

+  36 

bytes 

A  for  x  or  y  axis  floating  p^int 

TEMP 

11 

GTEM 

+  40 

bytes 

U  origin  floating  point 

TEMP 

12 

GTEM 

+  44 

bytes 

V  origin  floating  point 

Tl. 

GTEM 

+  48 

bytes 

number  of  significant  characters 

— 

TEMP 

14 

GTEM 

+  52 

>  -'tes 

• 

• 

TEMP 

15 

GTEM 

+  56 

bytes 

• 

• 

TEMP 

16 

GTEM 

+  60 

bytes 

• 

buffer 

TEMP 

17 

GTEM 

+  64 

bytes 

TEMP 

18 

GTEM 

+  68 

bytes 

TEMP 

19 

GTEM 

+  72 

bytes 

• 

TEMP 

20 

GTEM 

+  76 

by.tes 

• 

• 

n  floating  point 

TEMP 

21 

GTEM 

+  80 

bytes 

• 

« 

test  on  overlap  control 

TEMP 

22 

GTEM 

+  84 

bytes 

• 

• 

return  control  from  8  routine 

TEMP 

23 

GTEM 

+  88 

bytes 

• 

• 

number  of  bytes  added  to  buffer 

TEMP 

24 

GTEM 

+  92 

bytes 

• 

• 

scale  factor  •  TEMP  10  unnormalized  F.  P. 

TEMP 

25 

GTEM 

+  96 

bytes 

• 

0  =  x  axis  or  4  =  y  axis  computation 

TEMP 

26 

GTEM 

+  10C 

by  tes 

value  to  be  converted 

TEMP 

27 

GTEM 

+  104 

bytes 

x  or  y  format 

Input  to 

TEMP 

28 

GTEM 

+  108 

bytes 

address  of  buffer 

IOUT 

TEMP 

29 

GTEM 

+  112 

bytes 

number  of  bytes  in  buffer 

FSCAN 

TEMP 

30 

GTEM 

+  116 

bytes 

error  return 

WITEN 
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t 


(  Starr  \ 

f  Start  \ 

(  GDISPL  J 

l  GERASE  J 

!  Store  registers 


Store  registers 


GDISP3 
Set  register  2  to  GTQi 
0  -  TEMP  -  TEMP 3 
Is  this  GDISPL 


No 


Yes 


GDISP4 


|  Impossible 
1  v  ilue  - 
|  1st  location; 
of  image 
orders 


_ GDISP2 

Set  register  2  to  GTEM 
Address  of  1st  argument  —  TSMP1 
register  1  ±  4  -  __fdgister  1 

_ GMSP9 


Impossible  value  for  cursor  -*  THMP4 
First  address  of  channel  program  +  16 
current  address  of  channel  program 
f-^-fWill  last  address  for  channel  program 

M.asgeedsdLI 


No 


GDIS 11 


Store  channel  program  words 
to  set  buffer  address  and 
stop  to  write  the  start 
regeneration  bytes  into  buffer 
First  address  available  to  2250 
buffer  +  2  -  TEMPS 


Yes 


/  '^'N^Channel 
f  Error  \program  to. 
I  11  J  large 


GDIS13 


Is  TEMP2  (last  parameter  control)  ■  0 
I  Value  indicated  by  register  1  ^  IQOOq 


_ GDIS60 

J  Is  this  GDISPL*! 


I 


GDIS 15 


Value  indicated  by  register  1 
-  TEMP6 

Is  contents  of  register  1  <  0 
(Is  this  last  parameter) 


No 


Yes 
| I  "  TEMP2 


jms il 


register  1  +  4  -  register  1 
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Error 

12 


Register  8  -  register  6 
&r  register  5  —  register  3 
Is  this  last  parameter 


1  -  TEMP2 


Place  value  of  name  indicated  by 
register  1  “  all  4  bytes  of  register  9 
Mask  register  9  with  register  5 
Or  register  9  “  register  4 
Register  1  +  4  —  register  1 


GDIS PL,  GERASE,  GMTPAG ,  GMCURS 
GREAD  And  GMGTAG  continued 


GDI 200 


First  address  of  array  to  be  used  for  the  map  —  register  6 

-  TEMP? 

Current  number  of  entries  in  the  map  -  register  7 

-  TEMP8 


CDp05 


Is  register  7  >  0  u 


_ GDI 27 5 

TEMP8  —  current  number  of  entries  in  the  mad 


Mask  contents  of  location  indicated  by  register  6  with  register  3j 

-  register  5 

Is  register  5  =  register  4 


J _ _ 

[  Is  entry  GDISPL,  GMGTAG,  CMPTAG,  GREAD,  GMCURS,  GERASE  1 
|  fiiJlSPL  [GMGTAG  JgMPTAG  |GREAD  |  GMCURS  |  GERASE 


GDI210 


TEMPI  "*  tag  bit  of  map 
indicated  by  register  6 

~ZZD - 


GDI230 


GDI250 


tls  entry  GERAS Et~~* - 1 

'  GERASE 


I 


TEMPI  "*  Cursor  position  of 
map  indicated  by  register 
6 


-/k 


GDI215 


Register  7  -  I  -  register  7 
Register  6  +  12  -  register  6 


& 


|  Is  TFHP7  ^  register 

1/  41, 

_ m 


Transfer  12  bytes  starting 
with  the  location  indicate^ 
by  register  6-12  bytes 
starting  with  the  location 
indicated  by  TEMP 7 _ 


jmm _ , 

TEMP7  +  12  bytes  -  TEMP7| 


TE^PB  -1  -  TEMP8 


£DI270 
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GDISPL  continued 


iUL 


| Number  of  consecutive  bytes  occuppied  by  image  generating  orders 

(image  size  indicated  by  register  6) _ 


Current  channel  address  +  8  ~  current  channel  address 
Current  channel  address  -  1  ~  last  channel  address 


1 


J 


6 


GDI302 


Store  channel  program  words  to  write  the  image 
indicated  by  register  6 

Store  first  two  bytes  of  TIMP5  "*  1st  location  of  image 
orders  in  2250  memory 
Is  number  of  bytes  for  cursor  position 
indicated  by  register  6  a  legal  value 


Yes 

Cursor  to  be  inserted 


No 


_ | _ GDI310 

)  Ti5MP5  +  cursor  bytes  -  1  -  TEMPA*) 

-1  ^gD!320 

j  TEMP5  +  image  size  -  TB1P5| 


150 


W  A 


GDISPL  continued 


No 


GDI405 


Make  up  buffer  address  to  stop  i:or  cursor- 
Current  address  of  channel  program  +  16-* 
current  address  of  channel  program 
Will  last  address  for  channel  program  be  exceeded) 


'No 


GDX406 


Store  channel  program  words  to  set 
buffer  address  register  and  stop  for 
cursor 

Store  channel  program  words  to  insert 
cursor 

TEMPS  +  1  -  TEMPS 


Yes 


SC142Q 


Current  address  of  channel  program  +  8  "* 
current  address  of  channel  program 
Will  last  address  for  channel  program  be  exceeded 


JLfi &. 


No 


GDI422 


Store  channel  program  words  to 
set  buffer  address  and  start 
TEMPS  +  2  -  TEMP5 

Last  address  available  to  the  2250  buffer 


TEMPS 


© 


2250  buffer 
storage  exceeded 
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GREAD  continued 


.am. 


Current  channel  address  +  20  “*  current  channel  address 
Current  channel  address  ~  1  >  last  channel  address 


6 


mi 


Make  up  buffer  address  to  stop  for  read 
Store  channel  program  words  to  set  buffer  address 
register  and  stop  for  read 
Store  channel  program  words  to  read  buffer  into 
desired  location 

Store  channel  program  words  to  set  buffer  address 
register  and  start 


GMGTAG 
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Assignment  of  temporary  storage  (GTEM)  for  GDISPL,  GERASE ,  GMPTAG, 
GMCURS,  GREAD,  and  GMGTAG 


TEMPI 

:  GTEM 

+  0 

bytes 

TEMP2 

:  GTEM 

+  4 

bytes 

TEMP3 

:  GTEM 

+  8 

bytes 

TEMP4 

:  GTEM 

+12 

bytes 

TEMP5 

:  GTEM 

+16 

bytes 

TEMP6 

:  GTEM 

+20 

bytes 

TEMP7 

:  GTEM 

+24 

bytes 

TEMP8 

:  GTEM 

+28 

bytes 

-  location  of  1st  argument 

-  last  parameter  control 

-  1st  time  through  control 

-  cursor  found  indicator 

-  next  byte  to  be  used  in  buffer 

-  mask  from  argument  list 

-  position  of  map  during  erase 

-  number  of  entries  in  map 
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=  1  1=0 

Yes  I  No 
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Store  registers.  Set  register  2  to  GINK 


Is  the  value  of  the  1st  argument  *  1 


<1 


is  the  "a"  bit  of  GINK-1 


Yes 


>1 


Wait  for  attention  interrupt,  using 
ANALYZE  macro. 

IU.--3  interrupt  occurred? _ 

l  Yes  I  ho 


Is  interrupt  from  light  pen'' 


LPEN 


Yes 


Put  1  into  "a"  and  "u"  bitsf 
of  GINK 


No 

KYBD 


Put  l  into  "a"  bit] 
if  GINK 


GWAI20 


Store  "u”,  "c",  "a"  bits  -  GINK-W>  bytes 

Reset  "a"  bit  of  GINK 

First  address  of  channel  program  +16  -• 

current  address  of  channel  program 

Will  last  address  of  channel  prog,  be  exceded? 


No 


GWAI24 


. . 

Is  "u"  bit  o£  GINK-0 


*0 


f Error  21 
!  chan.  prog, 
ytoo  large 


Make  chan.  prog,  to  read 
manual  inputs 

T~  gwaiTS 


Make  chan.  prog,  to 
obtain  sense  bytes 


Set  buffer  address  to  start  at  address  indicated  by  GUTT I 


^ETURJ^ 


ETURN 

w- 


(7)  p*-  i>*_ 

fRAftt-nrA  Racm 


Restore  Registers 
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GWAIT  continued 


J _  GWAI50 

”f  -  register  i  to  GMGE 
Is  r  lit  of  GINK  +6^0 


Is  manual  input  from 
function  keyboard  or 
alphameric  keyboard 


Is  the  light  pen  detect  sense  bit  on] 


A  unit  check 
occurred  without 
a  light  pen 
interrupt 


Error 
#■  22 


0  key  and  overlay  bytes  of  GINK 
Interrupt  buffer  address  -  1 
interrupt  bu^er  address  given 
by  GMGE 


alphameric 


End  key  or 
cancel  key | 

I  End  Key 


{  GWAI70 
33  -  Key 
of  GINK 


Cancel 

key 


1GWAI75 


Store  Key 
and  overlay 
code 


34  -*  Key 
of  GINK 
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Start 

GMGET 


_ J _ GMGET  1 

Store  registers 

Set  register  2  to  GMGE 

Set  register  3  to  GUMA 

Set  register  4  to  first  address  of  array  used  for  map 
Set  register  5  to  current  number  of  entries  in  map 


GMGET6 _  w 

[Register  5-1— ►register  5  — GMGET3  - 

Register  4+12 -^.register  4  l— — —  7FFF-^lst  argumen 

__ _ _ _  Is  register  5»0  ~  — - - - 

_  T7  GMGET4 

Is  location  in  buffer  indicated  by  register  9  half  word 
value  in  the  address  indicated  by  register  2 


Is  location  in  buffer  indicated  by  register  9  half  word+ 
image  size  indicated  by  (register  4+8)  minus  1  f 
value  in  the  address  indicated  by  register  2 


Store  name  levels  indicated  by  register  4 
and  tag  indicated  by  register  9—^3  consecutive 
locations  beginning  with  1st  argument 

S[  GMGET5  ^ 

Restore  registers  j 


Return 
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Listings  for  the  memory  to  memory  conversion  routines  described  in 
Reference  (2)  (I0UT,  FSCAN ,  WITEM)  are  not  Included  In  this  memorandum 
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VIII.  DIAGNOSTICS 


Error  messages  are  displayed  on  the  2250  screen  in  the  form 
ERROR  XX,  where  XX  is  the  number  of  the  error.  This  is  done  by 
subroutine  GDIAGN.  In  order  to  have  the  message  displayed  on  the 
2250  screen,  however,  the  user  must  have  called  the  subroutines 
GUNIT  and  GUTTFY. 

The  error  numbers  and  corresponding  messages  are  listed  below 
under  the  subroutines  in  which  the  errors  occur. 

SUBROUTINES  GDISPL,  GERASE,  GMCURS,  GMGTAG,  GMPTAG,  GREAD 

11.  The  channel  program  is  too  large.  Reserve  more  storage  in 
calling  the  subroutine  GUCHAN. 

12.  Arguments  in  the  call  lines  are  incorrect. 

13.  The  storage  of  the  2250  buffer  is  exceeded.  Allow  more 
storage  in  calling  GUTTFY  or  attempt  to  reduce  the  size  of  the  display. 
SUBROUTINE  GWAIT 

21.  The  channel  program  is  too  large.  Reserve  more  storage 
in  calling  the  subroutine  GUCHAN. 

22.  A  unit  check  occurred  without  a  light  pen  interrupt. 

This  indicates  2250  machine  trouble. 

SUBROUTINES  GPBEAM,  GPDATA,  GPPOSN,  GPTEXT,  GSCALE,  GSIMAP 

31.  The  360/40  buffer  is  too  samll.  Reserve  more  storage 
in  calling  the  subroutine  GUBUFF. 

32.  An  attempt  has  been  made  to  do  non-linear  plotting.  At  present 
no  provisions  have  been  made  for  this.  The  argument  to  the  subroutine 


GUTYPE  must  be  the  fixed  point  integer  1. 

SUBROUTINE  GPGRID 

33.  The  map  storage  area  is  too  small.  Reserve  more  storage  in 
calling  GUMAP. 

41.  Same  as  32. 

42.  There  are  not  enough  raster  units  available  for  tick  marks. 

43.  '.Che  360/40  buffer  is  too  small.  Reserve  more  storage  in 
calling  the  subroutine  GUBUFF. 

SUBROUTINE  GPRINT 

51.  The  360/40  buffer  is  too  small.  Reserve  more  storage  in 
calling  the  subroutine  GUBUFF. 

52.  An  error  occurred  in  conversion  routines.  (See  DISPLAY - 
TRAN  by  Computer  Usage  Company).  There  is  probably  an  incorrect 
FORMAT  being  used  as  an  argument  in  calling  the  subroutine  GPRINT  or 
GPLABL. 

SUBROUTINE  GPLABL 

71.  Arguments  in  the  call  line  are  incorrect. 

72.  The  FORMAT  which  is  used  as  an  argument  is  incorrect. 

73.  The  labels  lie  off  the  225Q  screen.  Either  allow  more 
raster  units  for  appropriate  margin  in  calling  the  subroutine  GUSIZE 
or  alter  the  FORMAT  used  for  labelling. 

76.  The  360/40  buffer  is  too  small.  Reserve  more  storage  in 
calling  the  suborutine  GUBUFF. 
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The  problem  programmer  can  also  use  the  diagnositc  subroutine 
if  he  desires  to  display  error  numbers  on  the  2250.  The  call  line  is 
as  follows: 

CALL  GDIAGN  (IERR) 

where 

IERR  is  the  address  containing  the  value  of  the  error 
"IERR"  £  99. 
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All  values  are  right  adjusted  and  quotation  marks  indicate  the  contents  of  the  address. 
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APPENDIX  C  -  SUBROUTINES  AT  A  GLANCE 


CALL  GUN IT 

| 

(IDA) 

r* 

12S£ 

10 

CALL  GUNAME 

(Ml,  N2, 

N3,  N4) 

16 

1 

CALL  GUBUFF 

(Ni,  N2, 

l 

|  (Ml,  N2) 

L  (KD 

(AB,  NB) 

N3) 

17 

CALL  GUMAP 

(AM,  M) 

20 

CALL  GUCHAN 

(AC,  NC) 

22 

CALL  GUTTFY 

(MY,  NT) 

23 

CALL  GRBUr 

(IBUF) 

23 

CALL  GUTYPE 

(ITYPE) 

27 

CALL  GULIM 

(Ul,  VI, 

U2,  V2) 

27 

CALL  GUSIZE 

(IU1,  IV1,  IU2,  IV2) 

28 

CALL  GUGRID 

(XO,  YO, 

DX,  DY,  NX,  NY,  IG) 

29 

CALL  GUPL0T 

(I) 

33 

CALL  GPP0SN 

(I,  J) 

37 

CALL  GPBEAM 

(C,  D) 

38 

CALL  GPDATA 

<f  0,  R,  IDR,  S,  IDS,  ISYM,  IDSYM,  NP,  IS) 

38 

1,  R,  DR,  S,  IDS,  ISYM,  IDSYM,  NP,  IS) 

2,  R,  IDR,  S,  DS,  ISYM,  IDSYM,  NP,  IS) 

3,  R,  DR,  S,  DS,  ISYM,  IDSYM,  NP,  IS) 


C-I 


zm 


CALL  G COUNT 

(IT,  IE) 

41 

CALL  GPTEXT 

(ITX,  ATX,  NTX) 

41 

CALL  GPGRID 

44 

CALL  GPRINT 

(ITX,  FMT,  Al,  A2.  ...AN) 

45 

CALL  GPLfiBL 

(FMTX,  FMTY) 

46 

CALL  GDISPL 

(II,  Is,  I3,.-.Ia) 

47 

GERASE 

(Mi,  Jn  ,  J12  ,  J13  , . . .  Ji#  ^  ,  M2  ,  «Tai,  J22  ,  • . . 

...  Jgf  , . . .  M^  ,  Jn  1  ,  Jn2  ,  ...  Jn*  ) 

*  n 

24 

CALL  GMCURS 

(IG,  II  ,  Ig  5  X3  ,  •  •  « In  ) 

43 

GMPTAG 

(IG,  Mi,  Jn,  Jig  ,  Ji3>...  Jii^,  Mb,  J21,  Jb2,... 

•  ♦  •  Jzjj  ,  •  •  .Ma  ,  Jn  1  ,  Ja2  »  •  •  ♦  Jn|  ) 

2  a 

56 

CALL  GREAD 

(AREA,  I) 

(AREA,  Mi ,  Jn  ,  Jig  ,  Jjg  ,  ) 

48 

CALL  G0PCP 

49 

CALL  GOPEN 

50 

CALL  GCLOS 

50 

CALL  GWAIT 

(L) 

51 

CALL  GINKEY 

(IK1,  IK2,  IK3,  IK4) 

53 

CALL  GMGET 

(N) 

54 

CALL  GCONVT 

(FMT,  ARRAY,  KBYTE,  AI,  A2,  ...,  AN) 

57 
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PROGRAMMER  -  WRITTEN  APPENDAGES 


The  appendages  used  here  are  designed  to  give  the  user  additional 
control  over  certain  I/O  operations  during  channel  program  execution. 

They  reside  in  the  SVC  library  and  are  executed  in  the  supervisor  s.:ate. 
(For  a  detailed  definition  of  the  procedures  involved,  see  Reference  (5)). 

A.  Channel  End  Appendage  (IGG019VIH) 

This  routine  receives  control  from  the  supervisor  whenever  a 
channel  end,  channel  end  with  unit  exception,  or  channel  end  with 
wrong  length  record  occur  without  any  other  abnormal  end  conditions. 

If  the  channel  program  has  been  successfully  completed,  the  routine 
places  a  1  into  the  "c"  bit  of  GINK  and  returns  control  to  supervisor. 

If  the  channel  program  has  not  been  successfully  completed,  or  if 
the  wrong  unit  has  been  referenced,  the  program  dumps. 

B.  Abnormal  End  Appendage  (IGG019WG) 

This  appendage  is  entered  when  a  unit  check,  channel  chaining 
check,  program  check,  or  protection  check  is  detected  with  normal  ending 
conditions.  The  routine  merely  stores  the  registers  and  dumps. 

For  a  detailed  description  on  how  these  appendages  operate,  see 
Reference  (5). 
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CONTROL  BLOCKS 


A.  Input/Output  Block  (GIOB1) 

The  input/output  block  is  used  for  communication  between  the 
problem  program  and  the  system.  It  provides  the  addresses  of  other 
control  blocks,  and  maintains  information  about  the  channel  program, 
such  as  the  type  of  chaining  and  the  progress  of  I/O  operations. 

B.  Event  Control  Block  (GECB1) 

The  event  control  block  provides  a  completion  code  that  describes 
whether  the  channel  program  was  completed  with  or  without  error. 

C.  Data  Control  Blocks  (GDCBl  and  GDCB2) 

The  data  control  blocks  provide  the  system  with  information 
about  the  characteristics  and  processing  requirements  of  a  data  set 
to  be  read  or  written  by  a  channel  program. 

D.  Data  Extent  Block  (DEB) 

The  data  extent  block  contains  one  or  more  extent  entries  for 
the  associated  data  set,  as  well  as  other  control  information. 

For  a  detailed  explanation  of  these  control  blocks,  see  Reference  (5). 
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